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This book is intended for persons who want to learn to 
write programs which will produce printed reports using 
the RPG Il language. The book is designed to be used 
by a person with no previous knowledge of computers 
and programming, or by a person who already knows a 
programming language but wants to learn about report 
writing in RPG Il. 


After reading this book, you should not expect to be 
able to write complex RPG I! programs. You will be 
introduced to only a small part of RPG Il. Many 
important features in RPG II are not discussed in this 
manual. The RPG II reference manual for your system 
contains all of the information about RPG II features on 
your system. You should have gained enough 
background knowledge so that you can readily learn 
more detailed information—either from reference 
manuals, classes, or BM personnel—which is required 
for writing programs for your system. 


How This Manual Is Organized 

The first chapter describes, in general terms, how a 
system operates and the things you must do to run a 
particular job. The information presented should answer 
such questions as: 

e What are the parts of a data processing system? 

« What is a program? 

« What is a programming language? 


+ What is an RPG II program? 


« How is an RPG I! program run on a system? 


Preface 


The second chapter describes the RPG II program cycle 
and the RPG II specifications you must write to do a 
particular task. The material in this chapter is arranged 
to provide a gradual development of concepts, 
proceeding from the simple to the more complex. Thus, 
it is important to read the material in sequence. Sample 
jobs are used to illustrate the concepts presented. 

The third chapter explains an RPG II programmer's job 
more fully. It shows, by means of a sample job, the 
things a programmer must do from the start of a job to 
its completion. 

RPG II Coding Forms 

Following is a list of forms used to code and debug 
RPG II programs. Contact your local IBM branch office 


to order any of these materiais: 


« RPG Control and File Description Specifications, 
GX21-9092 


« RPG Input Specifications, GX21-9094 

- RPG Calculation Specifications, GX21-9093 
« RPG Output Specifications, GX21-9090 

« RPG Indicator Summary, GX21-9095 

« RPG Debugging Template, GX21-9129 

« Printer Spacing Chart, X20-1776 

« Record Layout Form, X21-9088 

« Disk File Layout Chart, GX21-9108 


« Printer/Display Layout, GX21-9174 
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Chapter 1. Basic Data Processing and Programming Concepts 


PARTS OF A DATA PROCESSING SYSTEM 


Data processing systems differ widely in appearance, usually consisting of 
several connected units. Regardless of their size or shape, however, all data 
processing systems have common features. 


Data processing systems operate electronically. They are complex machines 
with thousands of circuits and wires. Fortunately, you do not have to 
understand the purpose of each circuit or wire. To write a program which will 
produce a report, all you need to know are the purposes of the main parts of a 
data processing system: the input devices, the output devices, and the 
processing unit. 


Input Devices 


Data you give a system to work with is called input. The device used for 
getting that data into the system is called an input device. Several kinds of 
input devices may be used; among them are card readers, disks, diskettes, 
tapes, and keyboards. For the purposes of this manual, specific input devices 
will not be discussed. Information about the input devices applicable to your 
system is in the RPG Il reference manual for your system. 


Output Devices 


Data produced by a system is called output. The device that produces the 
output is called an output device. Several kinds of output devices may be 
used; among them are card punches, disks, diskettes, tapes, printers, and 
display screens. For the purposes of this manual, specific output devices will 
not be discussed. information about the output devices applicable to your 
system is in the RPG II reference manual for your system. Because this 
manual deals only with report writing in RPG li, we will refer only to printed 
output. 


Processing Unit 


The main part of a data processing system is the processing unit. The 
processing unit can be divided into three sections—storage, control, and 
arithmetic /logic—according to the special function each performs. 


Basic Data Processing and Programming Concepts 1 


Storage 


Storage is the system’s memory area. This area is divided into many storage 
positions which the system uses to electronically store information. The actual 
number of positions in storage depends upon the size of the storage unit. 
Each storage position has an identifying number called an address. 


A storage address serves the same purpose as a house address. Information is 
sent to and received from these locations. The information can be easily 
retrieved using the address where the information is stored. 


Arithmetic /Logic 


Calculations (such as add, subtract, multiply, and divide) are performed in the 
arithmetic/logic unit. When your instructions tell the system to do an operation 
such as add, the information to be added is transferred from storage to the 
arithmetic/logic unit. The operation is then performed and the result is sent 
back to storage. 


Control 
The control section is the system's decision maker. It retrieves instructions 


from storage, determines what has to be done, and directs other units or 
devices to perform the required operations. 


PROGRAMS AND PROGRAMMING LANGUAGES 


Data processing systems do only what you tell them. When you give a system 
instructions, however, it might seem as though the system requires more than 
you would need to do the same job. But remember, a data processing system 
cannot think: it requires explicit instructions, even for those things you would 
do almost without thinking. 


When you are to do a job yourself, you need three basic things: 

« Information to work with (input). 

« Instructions telling you how to work with (process) the information. 
« Additional instructions describing the expected results (output). 


In data processing terms, input is what you put into the system, processing is 
what the system does with the input, and output is the result of processing. 
Every job you run on a system has these three parts. You write instructions to 
describe what you want the system to do with each part. These instructions 
are called a program. 


To communicate with the system, you must use the system’s language, or one 
that can be translated into that language. The system’s language is called 
machine language. \t consists of letters, numbers, and symbols that, when 
properly arranged, have a specific meaning to the system and, when 
interpreted by the system, cause it to perform a desired function. 


Because machine language is so very different from our own language, it is 
extremely difficult to use it to write a program. For this reason, programming 
languages have been created. A programming language allows the programmer 
to use familiar words and symbols to write instructions. 


The RPG II programming language is composed of letters, numbers, and 
symbols which you put together to form an instruction (express a thought). 
When creating instructions in the RPG II language, you must follow certain 
rules just as you would when constructing a sentence in English. You will learn 
about these rules in the second part of this manual. 


The set of instructions you write is called a source program. This source 
program is translated by a program called the compiler, resulting in a machine 
language program called the object program. It is the object program that you 
use to do a job. In fact, you can use it over and over to do the same job. 


Source Programs 


The instructions you write for any program must describe the input, processing, 
and output requirements of the job. For example, one instruction might direct 
the system to read an input record, another might specify the adding of two 
numbers, and another may tell the system to print a line on the printer. 
Because all jobs are not the same, you provide a different set of instructions 
(program) for each job. 
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To write the instructions, you fill out RPG II specification forms (see Figure 1). 
These forms have been specially designed to help you write instructions 
according to the rules of RPG II language. The act of writing instructions on 
these forms is called coding; the entries you make on the forms are called 
specifications. 
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Figure 1. RPG II Specifications Forms 
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To describe the input, processing, and output requirements of your job, you 
supply different information on each form. For example, you have to describe 
what your input data is like and specify the device (such as a disk unit) that 
will read it. You also have to describe how the input data is to be processed. 
This includes specifying what type of operations (such as add or subtract) must 
be performed upon the data. Finally you specify what kind of output you want 
(such as a printed report), what information must be included in the output, 
and how that information should be arranged. 


After you have coded the specifications forms, the next step is to get the 
coded information into the system. The system cannot read the coded forms, 
so you must put the specifications into a format that the system can read. 
Depending on your system, you key the specifications onto a diskette, into 
punched cards, or directly into the system. 


Source Programs to Object Programs 


As we said earlier, the system understands only machine language. It cannot 
use a coded program (written in a programming language like RPG II) directly. 
Any program you write in RPG Ii must be translated into machine language. 
The translator is a program called a compiler. The RPG II Compiler program is 
available from IBM. 


The compiler translates your RPG II specifications (source program) into 
machine language (object program). The translating it does is called 
compilation. Essentially, the compiler performs three functions during 


compilation: 


e It determines what machine instructions are necessary for the system to 
perform the job described by your RPG !I specifications. 


« It translates your RPG II specifications into a machine language program. 


« It assigns storage locations to program instructions and data. 
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Summary 


Figure 2 illustrates the RPG I! data processing concepts. 


QQ) Determine the requirements of your job. 
Define the input and printed output. Also 
decide what processing must be done in 
order to get the proper results, 








Control 
and File 
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Q) Write the source program by describing your 
job on the RPG II specification forms. 






Figure 2 (Part 1 of 2). Summary of RPG I! Data Processing Concepts 
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data specified by the RPG II pro- 
gram and produces the desired result. 


Figure 2 (Part 2 of 2). Summary of RPG 11 Data Processing Concepts 
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DATA PROCESSING TERMS AND PROGRAMMING AIDS 


In the discussion of RPG II, you will find reference to data processing terms 
and programming aids. Figure 3 describes some basic programming terms. 
Figure 4 and Figure 5 are examples of some programming aids. 
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Figure 3. Basic Programming Terms 
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The record layout form shows what records in a file look like. This form is filled out at 
the time a file is designed. It shows what fields are in the record (1) and the exact loca- 
tion and length of each @) . It may also show field names and explain what kind of data 
is in each field (3) . 












There are different record layout forms for disk, 80-column cards, 96-column cards, and 
tape. The form shown above is the Proportional Record Layout form. 





“Two numbering arrangements, each in hexadecimal and decimal notation, are shown. Select the arrangement and notation used by checking the appropriate box to the left. 


tThe number of forms per pad may vary slightly 


Figure 4. Record Layout Form 
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Chapter 2. RPG II Programming Language 


RPG Il Program Cycle 


When you do any job, you must do it in a particular order. The system must 
also do its job in a particular order. This logical order for the job is supplied by 
the RPG II compiler and/or your coding. 


The logic the compiler supplies is called a program cycle (see Figure 6). The 
object program goes through this cycle of operations every time a record is 
processed. Depending on your specifications, the object program may or may 
not use a particular operation in the cycle. However, the program still goes 
through the complete program cycle every time. Because one program cycle is 
needed for each record read, many program cycles are required for every job. 
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START 


qq 


Perform detail 
calculations. 
Set resulting 
indicators. 


Move data from record selected at 
beginning of cycle into processing area. 
Set field indicators. 





Overflow indicator on? Yes, do 
overflow operations and set 
overflow indicator off. 


Program 
Cycle 


LR indicator on? Yes, end of 
job has been reached. 


Perform total output operations. 
If overflow line has been reached, 
set on overflow indicator. 


Perform total 
calculations, 
Set resulting 
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Perform heading 
operations. 
Perform detail 
output operations. 
If overflow line 
has been reached, 
set on overflow 
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Set off contro! 

level indicators. 

Set off record 
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Read a record. 


; S 
Last record? Yes, set on 
control level and LR 


indicators and perform 
total calculations. 


Set on record identifying 
indicator. 


Change in control 
field? Yes, set 
on control level 


indicators. 


Notes: 


1. The program cycle shown gives the general order of the operations. There may be minor variations 
between this cycle and the detailed cycle discussed in the reference manual applicable to your 


system. 


2. You do not need to memorize the program cycle. The cycle is only shown at this time to give you 
an idea of the cycle of the operations. The operations will be discussed in greater detail fater. 


Figure 6. Program Cycle 
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It is important that you know the order of the operations in the RPG Ii program 
cycle. This enables you to write specifications that will make correct use of the 
cycle. By knowing the order in which the Operations in the cycle are 
performed, you can organize your program in an efficient manner and save 
yourself unnecessary coding. 


In this chapter, the operations in the RPG II program cycle are explained a few 
at a time. You will learn: 


« Which operations are used for a particular function. 


+ Which RPG II specifications you must write to use the function. 
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Writing Specifications for Input and Output Operations 


One of the simplest jobs you can do on a system is read information from an 
input record, such as a card, then put that same information out, such as in 
the form of a printed report. No calculations are done. 


Program Cycle Operations 


To do this simple job, the system uses only the three most basic operations in 
the RPG II program cycle. Figure 7 shows these operations. 


Notice that two operations are concerned with the basic requirements of a job: 
input (read a record) and output (detail output). The third operation is the 
movement of data inside the system. 


START 


qq 


Perform detail 


output 
Q : operations. y 


Move data from record selected at 
beginning of cycle into processing area. 


DQ 


Read a record. 


<> Program , D> 


Cycle 


YY 
R 





Figure 7. Three Basic Operations in the RPG Program Cycle 
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Data read by an input device must be transferred to the system's processing 
unit before it can be used. Moving data is a mandatory operation done fur 
every job. Because this operation is mandatory and is done exactly the samy: 
for every job, the compiler can supply instructions to do it. 


When the program is executed, the program cycle is repeated over and ove: 
All three operations are used for every record in the input file. The term deta:/ 
output, in the cycle operation, means that the specified output operations are 
performed for every input record. 


It may seem strange that detail output comes before a record is read. This 
occurs, however, so that headings can be printed on a report. If a job (such as 
this one) does not print headings, no information is printed during the first 
cycle. 


To make proper use of these cycle operations, your specifications must 
describe the records in the input file and specify how the output records 
should be created. You must also indicate what devices are used in the job. 


RPG HH Prog: amniming Language 
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DESCRIBING THE FILES 


The File Description Specifications form is used to describe all the files used 
by your program. This information includes the name of the file, the device 
used with the file, and information on how the file is to be used. You fill out 
the indicated positions on the bottom half of the form. 
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You must describe, on a separate line, every file used in your job. Many simple 
jobs require only one input and one output file. In the first jobs we discuss, 
therefore, we will use only one input and one output file. 


File Names 


Every file used in a job must be named. The name provides you and the 
compiler a means of identifying the file. During compilation, the compiler 
associates the file name with other characteristics of the file. Thus, you can 
refer to that file by name throughout your program and the compiler knows 
exactly which file you are referring to. 


The compiler, however, recognizes file names only if they conform to these 
rules: 


* A file name must be 1-8 characters long. 

* The first character of a file name must be alphabetic. (The letters A-Z and 
the @, $, and # signs are considered alphabetic characters.) The remaining 
characters in the name can be either alphabetic or numeric. 

+ Blanks must not appear between characters in the file name. 

No two files used in the same program can have the same name. (Because 

some RPG I! compilers use only the first seven letters of an 8-letter file 

name, be certain, when using these systems, to make the first seven letters 
unique; for example, use TRANSACT and TRANFILE, not TRANFILA and 

TRANFILB.) 


+ The file name must begin in position 7 on the specifications form. 


Pow waz 







«— Valid filename. 

.a-- Invalid filename. Name must start in position 7. 

‘<— Invalid filename. A blank must not be used between letters. 

-+— Valid filename. 

— Valid filename. 

— Invalid filename. The first character of the name must be 
an alphabetic character. 














it is a good practice to assign meaningful file names. Meaningful names 
indicate something about the file, such as the type of records in the file or the 
use of the file. Because file names can be no longer than eight characters, 
abbreviations may be necessary. But these too can be meaningful. For 
example, the abbreviation CUSTCHG might be assigned to an input file 
consisting of records for ail customers having charge accounts. 
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Device Designation 


You must also specify which devices your job will use for input and output. 
The ones you use, of course, depend upon the system you have, the devices 
you have, and your job. 


To indicate the device used for the file you named, enter the RPG Il code 
name for that device in positions 40-60. The name must begin in position 40. 


Note: In the examples in this manual, you will see shading in the device name 
positions rather than actual RPG II code names for devices. Code names differ 
for each system. The RPG II reference manual for your system will tell you the 
code names that are applicable. 


During compilation, the compiler associates the file name with the device 
name. When you use the same file name in the rest of your program, the 
system will know which device to use. 


File Use 


You must also describe how each file and its associated device is used in a 
program. Files can be used as either input or output. (Files with other uses 
will not be discussed in this manual.) If records are read from a file, the file is 
an input file. If a new file is created during the job, the new file is an output 
file. Printed reports are the only output files discussed in this manual. 


You specify file use by placing either an | (input) or O (output) in position 15: 


— Input File 





|) +—— Output File 


File Designation 


Position 16 is used to explain more about the use of input files. In this manual 
we are discussing the use of only one type of input file, the primary file. For 
this, you place a P in position 16. The designation of a file as a primary file in 
an RPG II program indicates that the RPG Ii program cycle will supply some of 
the program logic. For more information on primary files, and other types of 
input files, see the appropriate RPG II reference manual. 


Record Size 


When describing files, you must specify the length (in characters) of records in 
the file. Record length is entered in positions 24-27. Enter the length so the 
last digit is in position 27: 











The record length specification does two things: 


+ It tells the compiler how much storage space to set aside for a record (input 
or output). 


¢ It specifies how many characters must be read to get a complete input 
record. 


Record size for card files is easy to determine. It is either 80 or 96 depending 
upon the size of cards you have. Maybe not all your cards have information in 
all columns, but all columns must be read to get an entire record. Blanks are 
placed in storage positions corresponding to unpunched card columns. 


The size of records (lines) on the printer is also easy to determine. Printed 
records are limited by the size of your printer (the number of print positions in 
a line). 


You may, if you wish, specify a record size smaller than actual printer size. If 
you do this, make certain that none of the lines to be printed are longer than 
the length you specify; otherwise the RPG 11 compiler will give you an error 
message which requires that the program be corrected and recompiled. 


Records on other files, such as disk, can be any size. The maximum size is 
limited only by the capability of the device. When you use one of these files 
for a job, make sure you enter the correct record size; that is, enter the one 
established at the time the file was created 


Other information may be required to describe how the input file is stored on 


the specific device in positions 29-38. See the RPG || reference manual for 
your system for these entries. 
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DESCRIBING INPUT RECORDS 


Besides describing files, you must describe the records in each file. The 
compiler needs this information to create an object program that will read 
records properly. Input records are described on the Input Specifications form. 
Information needed to describe the record in a file includes the name of the 
file containing the record, the name of each field in the record, and where each 
field is located in the record. You fill in the indicated positions to describe 
fields and data in the record: 
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To help in describing input records, you can use the record layout form 
described in Chapter 1. This form shows the location and length of all 
fields in the record. 





File Names 


To tell the compiler which records you are describing, enter the name of the 
file containing them in positions 7-14. The name must be the same (and 
spelled exactly the same) as the one you assigned to the input file on the File 
Description Specifications form: 
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Fieio Names 


Tx identify individua! fields in the record, you must give each field a unique 
nasne. From information you placed on the File Description Specifications form 
the compiler determines the size of the storage area for each input record. The 
fiald names you supply on the Input Specifications form tell the compiler to 
wivide ths storage area ito smaller sections so each can be addressed 


Separately 
The rules for forming field names are as follows: 
« The tieid narne must be from 1-6 characters long. 


+ The first character must be alphabetic. Remaining characters can be either 
alphabetic or numeric. 


« Blanks must not be placed between characters in a field name. 


« The field name must begin in position 53 on the input Specifications form. 







+ Valid name. 
~~-—Invalid name. A blank cannot be used between letters in the name. 


+ Valid name. 
~~ Invalid name. The name must start with an alphabetic character (A-Z, #, $, @). 





It is a good practice to assign meaningful field names. For exampie, a field 
containing customer numbers would be more meaningful if it were called 
CUSTNO rather than FIELDA. CUSTNO indicates something about the data in 
the field. 


Enter field names one line below the file name, using a separate line for each 
field: 
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Be sure to name every field that contains information necessary for your job. If 
you need all fields on the record, name them all; if you need only a few, name 
only those you will need. The entire record is read, of course, regardless of 
how many fields you are using from that record. However, only information in 
the fields you name can be used by the program. 
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Form Ti 





Field Location 


After you assign a field name, you must tell where the field is located in the 
record. This enables the compiler to associate the field name with the right 
information. To describe the field location, you specify the position in the 
record at which the field begins and ends. Starting position is specified in 
positions 44-47 (From); ending position is specified in positions 48-51 (To). 
When a field is only one character long, starting and ending position entries 
are the same. Field location entries can be easily determined from the record 
layout form: 
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The compiler also determines field length from the To and From entries. The 
compiler needs field length to determine how many storage positions to allow 
for each field. If the field locations you specify indicate a field length of 6, the 
compiler allows six positions in storage for the field. 


Type of Data 


To complete your description of the input fields, the compiler checks position 
52. This position indicates whether data in each field is alphameric or numeric. 
A numeric field can contain only numbers; an alphameric field can contain 
numbers, letters, and special characters. 


If position 52 is blank, the compiler assumes the field is alphameric. For 
numeric fields, position 52 must contain an entry. This entry indicates the 
number of decimal positions (digits to the right of the decimal point) in the 
field. 


Leave position 52 blank for alpha- 
meric fields. Enter 0-9 to indicate 
the number of decimal positions 
in a numeric field. 





Although you do not include decimal points in fields in input records, you must 
consider them if you want correct calculation results and output data. By 
specifying to the compiler the number of decimal positions you know to be in 
a numeric field, you provide the information necessary to produce an object 
program that will handle numeric data with decimals. 


Remember, any field used in an arithmetic operation (add, subtract, multiply, or 
divide) must be specified as numeric. 


DESCRIBING OUTPUT RECORDS 


Output records are described on the Output Specifications form. Information 
needed includes the name of the file containing the output record, the name of 
each field in the record, and the location where each field is to be placed in 
the record. You fill in the indicated positions to describe how the output 
records should look: 
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For a printed report, you make additional entries describing the format of the 
report; that is, make entries indicating the spacing and punctuation you want. 
These entries are discussed later under Printed Reports. 


The printer spacing chart and record layout forms are useful when you are 
writing output specifications. The record layout form shows the organization of 


fields on a card or disk record; the printer spacing chart shows the format of 
printed records. 


File Names 


You indicate the output record you want created and the device you want to 
create the record by entering an output file name in positions 7-14. Make sure 
the name you enter is the same (and spelled exactly the same) as the name 
you entered on the File Description Specifications form for the output file: 
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Output Indicators 





Filename 





Mode of Processing 


File Designation 





Filename 








Extension Code E/L 





> [> Form Type 


Page 





Garay 12m na Si | ce 
ss Reem 
File Description Specificati Tas 
‘ 


A 

8 
TT \ c 
: / 0 

Edit W 

13.14 16 
Deview sa 59 60 
ee 


Record Type 


Three different types of records which can be specified on the Output 
Specifications form are heading, detail, and total. You usually find all three 
types in a printed report. 











ACCOUNTS RECEIVABLE TRANSACTION REGISTER 
Heading 


O7/11/ -- PAGE O01 
Records 


CUST JOURNAL INVOICE CASH INVOICE JOURNAL 

DATE NO CUSTOMER NAME NO NO AMOUNT AMOUNT AMOUNT 
07/11/-- 759820 SOUND OF THE SEVENTIE 063420 $ 46.23 
O7/11/-- 633870 OLDE VILLAGE. SHOPPE 063421 89.70 
O7/11/-- 642990 PARAGON TV SALES 063422 20.30 


O7/LL/-- 122620 CANNIZONI STUDIOS 063422 129.76 
Detail 
Records 


07/11/-- 682030 RAYMONDS RAPID REPAIR 

O7/11/-- 742950 SARATOGA VARIETY 

O7/11/-- 014280 BAKER BRADLEY & CO 

07/11/-- 872060 UNIVERSITY ELECTRIC 

07/11/-- 883290 VILLAGE MUSIC & TV 07-036 $18.23CR 


07/11/-- 006280 ALLSTONS 07-037 10.70CR 
Total 


TOTALS $234.77* $285.99% $28.93CR* 
Record 


Heading records are printed at the top of a page. They include report titles, column headings, 
or any other information needed to identify the kinds of information found in the report. 


Detail records contain information about an individual item. Information in a detail record is 
often taken directly from an input record. 


Total records are written after a group of detail records. They usually contain data that is the 
result of calculations on information in a group of detail records. 
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To specify record type, place an appropriate entry in position 15. |f the printer 
spacing chart was properly filled out, you can refer to it to determine record 
type: 


These entries specify the record type: 







Refer to the printer spacing chart 
to determine the record type: 
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Field Names 


To specify the information to be placed in each output record, you must name 
each field to be included. You specify these fields on separate lines of the 
Output Specifications form in positions 32-37. Begin the list of fields one line 
below the file name: 


RPG | OUTPUT SPECIFICATIONS 
IBM ..... 


Program 


jusiness Mac avon 
a é x asec Se a 6 i = 
- : “| igang Graphic Card Electro Number 
1 
[Powarome Se TE ation xy [ 


ass bee 
O Skips Output Indicators ies f |2er0 Balances 
ma a j_toPant |S 
Fieid Nama va vat 
Yes No 
m ie Yes 
And Acd Postion No 




















a 
B 
& 
8 


Line Filename 


Type (H/D/T/E} 


n 


Output 
Record 


s 
| 
a a 


Constan 


1203-4 5 6 7 8 9 WY 


folder] 





[zo] [>]O [>] stkr=-Fercn iF) 


[z >[o] 
a a Ss We a ee oe 


[TET eke zie] 


a 


8 9 10:11:12:13 


ORT ; 


45 46 47 48 49 $0 51 52 53 $4 55 56 


hr 
a 
ae 
| 
Ep: 
mae 
Uy 


32 33 34 96.36 37138 an 41 42 43 


' 


bn 
g 
3 

Edit Codes 


LOOT AT 
oS 
ESS 


i 
le 
! 


alae 
| 
I 


! 

pad t 

i fd i t 
1 

eb dat 

i 


| 
Hh 





lees 
13 a 
{ 





° 
o 
> 60 0.0 0 O10'Ole Fumtye 


= —_— os ~ 


oe 
SSS rT] 
[| aA 
[SIAR 


| ‘ 


] 
t+ 
i 


When listing the fields, make sure you enter a name that was previously given 
to a field (for example, a field named on the Input Specifications form). {f the 
name you enter on the Output Specifications form is not one previously used, 
the compiler will not know what information you are referring to. 


Field names are used to create the output record in the Output storage area. 
Information is placed in the storage area one field at a time in the order you 
list them on the Output Specifications form. 


Field Location 


To specify where you want fields placed in the output records, you make an 
entry in positions 40-43 (End Position in Output Record). This entry must be 
the exact position where the last character in a field should be placed in the 
Output storage area at the time the record is being created. The entry is easy 
to determine if you use a printer spacing chart or record layout form. 
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PRINTED REPORTS 


When your output is a printed report, additional entries are needed on the 
Output Specifications form to make the report easy to read. Information must 
be neatly arranged in rows and columns with adequate space between items in 
a line and between lines. 


Spacing 


Your field location entries (positions 40-43) control space between fields, but 
to control spaces between lines you code positions 17-18 (Space). 


You can have the printer single, double, or triple space between lines by 
entering the number 1, 2, or 3 in the appropriate positions. If you enter the 
number in Space Before (position 17), the printer spaces before printing the 
line; if you enter the number in Space After (position 18), the printer spaces 
after printing the line. You may enter numbers in both positions 17 and 18. By 
specifying three spaces before printing and three spaces after, you can have 
five blank lines between printed lines. The printer spaces three lines after 
printing a line, then spaces three lines before printing the next line. This next 
line is then printed six lines beyond the last line printed. 
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To single space the detail lines of a report, a space 
specification of 1 must be specified in position 18.8 - a 
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Skipping 


You can use Skip entries in positions 19-22 to control spacing between lines 
on a page and to control printing the first and last lines on a page. A skip can 
be made before or after a line is printed. You indicate this by coding the skip 
in either positions 19-20 (Before) or 21-22 (After). The entry you place in 
these positions depends on the type of printer you have. 


In this manual, we will discuss and show examples only for printers with 
tapeless carriage control. If your system uses a carriage control tape, you will 


find the appropriate entries for skipping in the RPG II reference manual for 
your system. 


The Skip entry for a printer with tapeless carriage control can be any line 

number (1-112) on the printer paper. (The standard 11-inch printer paper has 
66 lines per page when 6 lines are printed per inch.) A Skip entry in positions 
19-20 indicates the line to which the printer skips before it prints the next line. 
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To print a heading on line 10, a Skip specification of 10 in positions 
19-20 must be made. When this instruction is executed, the printer 
skips to line 10 and prints the heading. 
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Printer paper is not rolled backward. If the printer is on line 50 when the 
program issues a skip instruction to line 10, the printer skips to line 10 on 
next page. 
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Editing 


Editing is a means of punctuating numeric fields by adding decimal points, 
commas, and negative signs. Editing can also suppress the printing of leading 
zeros (in the number 00149, 00 are called leading zeros). 


When a numeric field is read into storage, it contains no decimal point or 
commas; when an unedited numeric field is printed, it appears exactly as it is 
in storage. A large number printed without commas or decimals is hard to 
read. Furthermore, an unedited field may not be meaningful when printed 
because of the way the system stores negative numbers. 


The system uses the last digit in a numeric field to indicate sign (plus or 
minus). If the field is minus, the system combines a minus sign with the last 
digit. When a negative number is printed unedited, the combination of digit 
and sign appears as a letter. For example, minus 6439 prints as 643R. On the 
other hand, a positive field has no sign (a numeric field that does not have a 
negative sign is assumed to be positive). A positive field, therefore, prints 
normally. Positive 6439 prints as 6439. 


The compiler can provide instructions to edit in a number of ways. All you 
have to do is enter an edit code in position 38 of the Output Specifications 
form. Many codes are available, each indicating a different type of editing. 
Figure 8 shows the codes and the editing done for each. Figure 9 shows some 
examples of editing. 


Note: When you edit a field, you often add characters to it. When printed, the 
edited fields require more space than they did on input records or in storage. 
When specifying end position for an edited field, always take into account the 
spaces needed for the punctuation that will be added. The printer spacing 
chart shows the amount of space needed for the edited field. 
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Sign For Negative Balance 
Commas} Decimal : Zero Print Out On 
Point | No Sign | — (minus) | Suppress Zero Balance 


Yes No Sign .00 or 0 





No Sign Blanks 





No Sign .00 or O 





No Sign Blanks 





.00 or O 





Blanks 


.00 or O 





Blanks 





.00 or O 


Blanks 





.00 or O 





Blanks 


The X code removes the plus sign of the field. 
The Y code is used for date fields. It suppresses only the leftmost zero and puts slashes 
in a three to six digit field according to the following pattern: 
nn/n 
nn/nn 
nn/nn/n 
nn/nn/nn 


3 s 
The Z code removes signs and suppresses zeros. 


Note: The edit codes shown in the first column are used in position 38 of the Output 
Specifications form to punctuate the field named on the same line. Only numeric fields 
can be edited. The decimal point is automatically inserted in the correct position. 





Figure 8. Edit Codes 













Fieid Length 




































and Digits 

Field Positive Negative Zero—Two Zero—No Positive 

Character- Number— Number— Decimal Decimal Number— 

istics Two Decimal Two Decimal Positions Positions Three Decimal 
Positions Positions Positions 


17695.32 








17,695.32 


17,695.32 
17695 .32 


17695.32 










Edit Codes 











17,695.32 





17,695.32 








17695 .32 


a 


Note: This table shows the effect of editing on five different fields. It illustrates what will be printed by 
using each edit code on the fields. 







Figure 9. Examples of Editing 
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JOB 1 (TRNREG): PRINTING A SIMPLE REPORT USING THE THREE BASIC 
CYCLE OPERATIONS 


Job Definition 


Print a report listing all items sold during a week. The selling of an item is 
known as a transaction, so the report is titled Transaction Register. 


During the week, a transaction file is created. At the end of each day, 
transaction records are created from information obtained from order forms 
received during the day. To get the printed transaction report, you list the 
information from all input records on the printed report. 


























Job Requirements 


Input: Sales transaction file consisting of 96-character records. The format 
of the input records is shown on this record layout form: 


Item 


Description Quantity! Price 


{ 
a To foluye lista is fi] it{18|i9{20[ 2] 22] 25] 24/29 26 a] 2 |29[50/3 | fe [este inert 








Two decimal positions 


Output: A printed transaction register: 


413910 CHOUL BUX LODA FLUSH 
412146 CH148 AREAKER 15A 
411116 1500 TWIN SOCKET Bb 
593929 MOTUR 1/2 HP 60 CYC 
317802 TERMINAL CLIP 

326917 TERMINAL BAR 

lili 1506 SOCKT ADAPT BRN 


4h2997 CH173 BREAKER 304 
4139088 CHI176 BREAKER 604 
+ELL?4 C151 STL SWITCH RRN 
413999 CHOD5S RR BOK LSUA 
Tluseso FC8U3 FUSE 15A 





This printer spacing chart shows how the report is formatted: 
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Job Specifications 


RPG CONTROL AND FILE DESCRIPTION SPECIFICATIONS G21 9002, UM/08D" 


TBM ivessssiisa ooaicictisconecbsesercis: Printed in U.S.A. 
[Pesan Transaction Register 


fore ale ap aga peleanunae we ask. Gee 





ps 


Contro! Specifications 










File Description specifications describe the files used: one input and one output. 
The input file, consisting of 96-character transaction records, is given the name 
TRANS. | in position 15 indicates input file; P in position 16 indicates primary 
file; 96 in positions 24-27 tells how long the records are. The device used to read 
the file depends upon your system. The output file is a printer. Filename is 
REPORT. The print line (record length) is 96 positions long. 







Ling 






MFCM Stacking Sequence 


Listing Options 
Inverted Print 


8:.360/20:2501 Butter 


Date Format 






3 
Py 
y 












Notice that entries have been made in positions 1-2 and 75-80 in the upper right- 
hand corner of each form. Page number (positions 1-2) along with line numbers 
(positions 3-5) help you keep your specifications in order. These numbers are 

keyed in the source Program. Positions 75-80 identify your program. 

















Filename 


Line File 
21 Overflow indicator Condition 


U1 U8 
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RPG Printed a U.S A. 
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Record Identification Codes Field 
pee = ~ Field Location ‘sick . 
2 3 ndicdtors 
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Filename Field Name 


Position { - 2 ; Position 


Option Ores 
Controt Levet (1. 1-L9F 
Matching Fielas or 
Chaining Frelcts 

Field Record Relation 


:Decimas Positions 


Pe 7 VOY dere By Bag 

TITRANS [Tt 2} 

Input specifications describe the input records. The input file is 
named first. The name entered must be the same as the name given 
to the input file on the File Description Specification form. Fields 
on the input records are then described. Most of the information 
for describing fields is taken from the record layout form. The 
record contains five fields, all of which are needed for output. Therefore, 
all five fields are described, starting one line below the file name. Field 
description entries include field location, field name, and decimal Position, 
which indicates type of data {alphameric or numeric). Any field to be used 
in arithmetic operations or edited must be numeric. The output shows that 
three fields are edited. Thus, three fields have an entry in position 52 to 
indicate numeric fields. 


ote 
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The Record Identifying Indicator (entry 01 in positions 19 and 20) is needed to get correct 
Output. It will be explained later under Job 5 (STOKST): Using Record Identifying Indicators 
to Process Different Record Types. 
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named first. D is entered in position 15 to indicate a detail line (one printed for 
every record read). A 1 in position 18 specifies single spacing. All fields to be 
printed are now listed, one per line, starting one line below entries describing the 
entire line. End Position, taken from the printer spacing chart, is given for each 
field. Again, according to the printer spacing chart, three fields are to be edited. 
DATE needs slashes (edit code Y), QTY must be zero suppressed (edit code Z), and 
PRICE must be zero suppressed and punctuated with decimals (edit code 3). Edit 
code 3 was chosen for the PRICE field instead of edit code 2 because PRICE, being 








Totolololo1to1o o10 000000000 0 0~ 




















































+ 1-1] a 5-position field with two decimals (xxx.xx), needs no commas. 
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1 The Record Identifying Indicator (entry 01 in positions 24 and 25) is needed to get correct 
output. {t will be explained later under Job 5 (STOKST): Using Record Identifying Indicators 
to Process Different Record Types. 
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Writing Specifications for Calculation Operations 


Most jobs require some processing. In RPG II, processing can include 
calculating, comparing, moving, or changing data. In this discussion we will 
consider only calculating (adding, subtracting, multiplying, and dividing). 


Program Cycle Operations 


When you specify a calculation operation related to each input record 
processed, you are adding one more operation to the basic program cycle: the 
detail calculation operation (see Figure 10). 


START 


a 


Perform detail Perform detail 
calculations. output operations. 


Move data from record selected at 
beginning of cycle into Processing area. 


Q 
Ly 


Read a record. 


<> “Cycle oO 


c 
7 


Note: This is a basic Program cycle showing the addition of detail operations. Because this is a 
detail operation, it is performed during every cycle for every record read. 


Figure 10. Program Cycle for Detail Calculations 
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The Calculation Specifications form is used to describe the operations you 
want performed. Information needed includes the type of operation to be 

done, the field(s) or constant to be used in the calculation, and the location 
where the result of the calculation is to be placed. You fill in the indicated 
positions: 
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Specify one operation per line. In each program cycle, processing steps are 
done in the order you specified on this form. If calculations must be done in a 
particular order, you must list the operations in that order. 


RPG 1 Programming Language 41 


DESCRIBING TYPE OF OPERATION 


To indicate the type of calculation operation, you enter one of the following 
operation codes in positions 28-32 on the Calculation Specifications form: 


ADD (add) 
SUB (subtract) 
MULT (multiply) 


DIV (divide) 


DESCRIBING DATA TO BE USED 


After you have specified the type of operation, you must identify the data to be 
used. |f you specified ADD, for example, you must tell the system what to 
add. You do this by naming the fields to be used in positions 18-27 (Factor 1) 
and 33-42 (Factor 2). 


Instead of naming a field in Factor 1 or Factor 2, you can enter a constant; that 
is, you can enter actual data instead of the name of a field containing the data. 
For example, you can enter either of the following: 

500 Constant (actual data) 


AMOUNT Name of a field containing data 


Constants can be either numeric or alphameric, but for now we will discuss 
only numeric constants. The rules for using numeric constants are as follows: 


+ Constants can be up to ten numeric digits (0-9). 
* Constants can have a sign and decimal point. The sign, if used, must be the 
leftmost character. The decimal point, if used, must be shown as part of 


the constant (4.12). 


¢ The first character of the constant must be placed in the leftmost position 
of the Factor field. 


¢ Constants cannot contain blanks. 


The contents of a field can change during execution of a program, but 
constants do not. If you want to add, multiply, subtract, or divide the same 
number during every program cycle, you can use a constant: 










Result Fietd 





Factor } Operation 


Caminients 


was Add a constant 1 to COUNT at detail calcula- 
: — tion time, thus providing a count of the records 
processed. 


IR 


} cum ““———_ Calculate the circumference of a circle by multi- 
eit lying diameter by the constant 3.14159. 
DOZEN plying y 


| Convert a units quantity to a dozens quantity 
t | by dividing QTY by constant 12. 
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To the compiler, a constant is like a field name. During compilation, the 
compiler checks Factor 1 and Factor 2 for constants. If there are any, the 
compiler assigns a storage location for the constant and gives instructions to 
the computer to put the appropriate constant in that location at the beginning 


of job execution. 


When you enter the fields in Factor 1 and Factor 2, be sure to consider their 
order because the specified operation may have an affect on the result: 


ADD 


Factor 2 is added to Factor 1 and 
the sum placed in the Result Field. 





Resale Fuel 


Factor 1 Operation Factor 2 





Either line adds the two amount 
fields. The order of the fields makes 
no difference in addition. 


MULTIPLY 


Factor 1 is multiplied by Factor 2 and 
the product placed in the Result Field. 





Operation Factor 2 








Either line multiplies the hours and rate 
to obtain the gross pay. The order of 
the fields makes no difference in multi- 


plication. 


renee 







SUBTRACT 





Factor 2 is subtracted from Factor 1 and 
the difference placed in the Result Field. 






















Result Fivk 




















Factor } Qpetation Factor 2 








ae ia 





The order of factor 1 and factor 2 in sub- 
tract Operations is important. The bottom 
line would not produce the desired result. 














DIVIDE 








Factor 1 is divided by Factor 2 and the 
quotient is placed in the Result Field. 
Factor 2 cannot be zero. 


















Factor 1 r Factor 2 











The order of the fields in divide 

Operations is important. The bottom 
line will not convert a units quantity 
to dozens. 








DESCRIBING THE RESULT FIELD 
You must specify where you want the result of a calculation stored by naming 
that field in positions 43-48 (Result Field). The name you enter in the Result 


Field can be the name of a field already defined on the input or calculation 
specifications forms or a new field. 


You would not need to name a new result field in these two situations: 


« The contents of an input field are no longer required in your program, and 
the field is the correct size. 


« The contents of an input field or a result field already defined on the 
Calculation Specifications form is to be replaced with a new value. 
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If you name a new field, you must specify field length (positions 49-51) and 


decimal position (position 52) so the compiler can assign adequate storage for 
the new field: 
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RPG CALCULATION SPECIFICATIONS 


Keying 
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Result Frela 








Operation 
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- | 

The result field COST is not a new field 
because it is already defined by Input 
specifications. Field length and decimal 
position entries are not needed because 
the compiler already has this information 
and has set aside storage space for the 
field. 


i. 
0 






The result field TOTAL is a new field because 
it is not defined on the Input Specifications 
form. Field length and decimal position entries 
are needed so that the compiler can set aside a 
storage area for this field. 
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Result Field Length 


When you name a result field, make sure you specify one large enough to hold 
the results. Always consider the length of the fields involved in the operations. 
For example, if you are adding a two-position field to a three-position field, 
you must determine the largest result you could possibly have: 


999 
99 
1098 


Because there are four digits in this result, you would specify at least 4 as the 
result field length. 


If this calculation would occur many times in your program, as in a running 
total, you would probably need a result field length larger than 4. It is up to 
you to determine the largest field length needed; failure to specify a large 
enough result field can mean a loss of data. 


Decimal Positions 


For a new result field, be certain to place an entry in position 52. if the new 
field is to be numeric but contains no digits to the right of the decimal point, 
enter a zero. Remember, this entry indicates type of field (numeric or 
alphameric) as well as decimal position. If the result field is not specified as 
numeric by an entry in position 52, the compiler will not provide instructions 
for the calculation operation. 


Half-Adjusting Results (Rounding) 


In RPG Il, rounding results is called half-adjusting. When the digit to the right 

of the last digit you want to keep is greater than 4, 1 is added to the last digit. 
The number 3.14159 rounded to four decimal positions becomes 3.1416. The 

same number rounded to two decimal positions is 3.14. 
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To half-adjust any calculation result, you place an H in position 53 of the 
Calculation Specifications form on the same line as the field to be 


half~adjusted: 








Resulting 





Result Fred 





ledicators, 


eee a 


LookuptFactor 2}is 
1 i 





Indicators 











Operation 





Ang 






Name 






5 Decimal Positions 


In this example, DISCNT is half-adjusted. The entry in position 52 (Decimal Positions) 
indicates the number of digits to be retained after half-adjusting is completed. In this 
case, two digits are required. The multiplication and half-adjusting would be done like 
this: 
74.98 ~— Assumed value of PRICE. 
x .06 +— Constant representing 6% discount rate. 
4.4988 ~— Result which must be half-adjusted to 2 places. 
1 —~— 1 is added to 9 because 8 is greater than 4. 
4.5088 ~— Slashed digits are dropped since only two decimal positions 
are required. 





JOB 2 (TRNREG): DOING SIMPLE CALCULATIONS 


Job Definition 


Print a report listing all sales transactions for a week. This report is similar to 
the report created in Job 1. The only difference is the addition of the last 
column on the report which is the sales amount per item. Sales amount 
(quantity sold times item price) is not found in the input record and must, 
therefore, be calculated. 
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Job Requirements 


Input: Sales transaction file consisting of 96-character records. The format 
of the input records is shown on this record layout form: 


Transaction leem ltem 
Date Number Description 


Quentity| Price 
| 1 
1 
' i 
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Two decimal positions 


Output: A printed transaction register: 
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Job Specifications 
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Of Print | 
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Reserved 








The same files are used for Job 1. Therefore, 
the File Description entries are the same. 









je MECH Stacking Sequence 


~ dnverted Print 












File Description Specifications 
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Symbolic 
Device 
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Fite Format 
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| | Specifications form. Notice, however, that a new field, EXTCST, is created to hold the result. 
-|'We needed a new result field because we could not use any of the fields described on the 
Input Specifications form. If we had used one of them, we would lose information needed 
for printing the detail line. 

















(a = 2 o o15 
. Vat lar sar 
i 
poo Oo 
+t ohare 
i od 4 | { 










~ Tat] 
oleial. 
oP 
a aeiale 
| 
r 
| 
| 

















i c 
ppp fated p= 
2] 6]: LT _| Any new field must be defined by describing field name, field length, and decimal positions. 
: H +-| We chose the name EXTCST. Any valid name could be used. According to the printer spac- 
ote ing chart, the EXTCST field is 7 positions long with two decimal positions. We, therefore, 
cl Tf || used these figures when defining field length and decimal Positions. 

















i 
[oo | 









LES pel) hemes up Re EP pee bb bo be a ' ! 
RPG OUTPUT SPECIFICATIONS Gx21 9090 _UM/050 


Printedin USA 


2 oe Se Se ee gee ts : se a ste = a 12 78 76 77 78 79 80 
| ey Transaction Re 1$rer Roi i Grape a } Card Electro Number t : ees 7 at: 6 
[Programmer JH ) Doe eth [- - 2 es : Key calle. T Sis [i Zh a Bi pee Ientitication IRIMRIE| 


Space] Skip Output Indicators Ss Zero Balances | yy gign | cr | 2 | x» Remove 
TY oe a Plus Sign 
se beer emake 

A : | 
n 

















¥ Date 


| 
es ‘Ss t 1 A J 
es. No. } 2) B K 
lo Yes i 3 Cc L 
o | ono | mf 

















































































is é ceria 
8 lg | ‘ iid Edit | 
Filename ‘iG x £ ey 4 D i Sates | 
* $ § a! i eepoteeetl Seestentape emg ak 
. gaca 2 | als § Constant or Edit Word 
5 oO Lay | é | : | ; are é g 2 7 9 20 21 22 23 2. 
- 4 ! ba eee 364 6 7 ww 121 14:15 161 wT £ 2 at 
3.4 5] 6]7 8 3 10 11 12 13 TLL A. « 21 22533 2al25 26 127 | 28129: sh 2:39.34 36 36 37135 fs 44}4s 46 a 48 49 = 53 52 = 5 a a 59 60 61 62 63 64 65 66 6? 68 69 70474 79.90 78: 
 HOPEPOARL EL TPE TTT eT) Pe 
° | | BA eee preety 
BERLE CELL LEE Bett ft bE Brew HSL Pec] Py ge 
o|e TE a [EWR ieay]  tpiyt peas er yy ag 
oo bob i s a 7 | SB owes } 20s ea) on) | 14 t tos + + 
el LTE LL Li EL Eo eye 2A Petes aa aan 
eee LE EE EET) EP ‘Patel Eo 
Peridot yd de TEE EP EEG LE | ExT e's] | ee kl ete ji | 
i | Ty | iit Pry | [i | 
PLT TEE BT ETT Ca tel ti THE 
lo PTE EE) ed | HT ET | seep ilPeed psa RE 
lol vel ad EL La ! ia lee | el on 
ele hoop. El Ld | f 4 Ha LL be “it hE yard [i eae hig . iB Bia 
14 — — - - = = ; as — alt ne Gs ae) 
[, : “ This Output Specifications form differs from the one in Job 1 by only one | mecca 
['|2| [o] | | | entry. The field EXTCST was added because it is to be included in the output fi Li bee 
[+14] Jo | | line. EXTCST is to be edited with commas. Thus, we use edit code 1. . eka 
i is| nN pre 
v6 ry HH 
V7 4 
lel [ol [| : aH 
419 al. 
2/90 dy 
















































































52 


Writing Specifications for Indicators 


So far you have learned how to use an RPG II program cycle for producing 
simple reports. However, actual business reports would be more complex. 

They would include more information, have page and column headings, and 
probably include subtotals and final totals. 


A report like that shown in Figure 11 would require printing four different types 
of lines: report heading, column headings, detail lines, and total lines. Some of 
these lines must be printed only at certain times: headings would be printed 
only at the top of the page and totals only after all detail lines are printed. To 
produce the report correctly, you must use indicators to specify when you want 


certain things done. 


To you, indicators are two numbers or alphabetic characters you specify on the 
specification forms. To the object program, indicators are like switches, 
located in the system. They mean one thing when on; another when off. You 
can use several types of indicators; each type signals something different. 


You must know how program cycle operations affect indicators in order to 
use indicators correctly. In this section, indicators are discussed one at a 

time. You will learn when to use indicators, how to specify them, and which 
program cycle operations are associated with each type of indicator. 


TRANSACTION TTEM 
DATE NO 


T/23/ > 413919 
412146 
4lllle 


903029 
327802 
326013 
4tildl 
412997 
413988 
SIELLTG 
413090 
718326 


321071 
325781 
412146 
573022 


TRANSACTION REGISTER 


DESCRIPTION 


CHODL BOX 100A FLUSH 
CH148 BREAKER 15A 
1500 TWIN SOCKET B 


MUTUOR 1/2 HP 60 CYC 
TERMINAL CLIP 
TERMINAL BAR 

1506 SOCKT ADAPT BRN 
CH173 BREAKER 30A 
CHIL7T6 BREAKER 60A 
CiSl STL SWITCH BRN 
CHOOS BR BOX 150A 
FCB8O3 FUSE 15A 


2-SPEED SAW 
SATIN-CUT DADU SFT 
CH143 BREAKER 15A 
6-VOLT POWER BATTERY 





QUANTITY SALES 
AMOUNT 


49.00 
89.00 
560,00 


698.00 


293.56 
512.00 
412.00 
76200 
69.00 
46.00 
232.00 
492A0 
64.00 


19754236 
28644 
39250 
44-50 
28-90 


141.34 


WEEKLY TOTAL 29593470 


Note: This report is similar to those shown before, but note the addition of headings and totals. 


Figure 11. Printed Report 
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CONTROL LEVEL INDICATORS 


Control level indicators are used when you want to calculate and print totals. 
Nine different indicators can be used (L1 through LS), allowing as many as nine 
different levels of totals in the same program. The control level indicators tell 
the program two things: 


+ When totals should be calculated. 


« Which calculations and output operations are total operations. 


A control level indicator in positions 59 and 60 next to an input field specified 
on the Input Specifications form determines when totals should be calculated 
and printed. This input field is called a control field. Whenever the contents of 
the control field changes, a contro! break occurs. A control break turns on the 
control level indicator assigned to the control field and all lower control level 
indicators. The system performs all calculations and output operations (total 
Operations) that are conditioned by these control level indicators. If a control 
break causes L3 to be turned on, L1 and L2 are turned. on. This allows control 


over several levels of totals and subtotals. Examples are daily, weekly, and 
monthly totals. 


In Figure 11, the records are grouped by date and a total of the sales amount 
field should be printed when the contents of the input record date field 
changes. 
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Control level indicators are specified at to tell the compiler when total opera- 
tions are to be done. They are used at to tell which operations are total 
calculations. They are used with a T in position 15 at @ to tell which lines are 
total lines. 
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Program Cycle Operations 


Figure 12 shows the program cycle operations associated with contro level 
indicators. The system can do calculations and output operations at two 
different times in one cycle: at detail time and at total time. Total operations 
associated with control level indicators are not done in every cycle; they are 
done during the cycle in which the control field changes. 


After a record is read, the program determines whether the control field in the 
record just read is different than the control field in the previous record. If it is, 
a control break occurs and the control level indicator you specified is set on. 
When the indicator is on, it means that all records in the control group have 
been read and total operations can be performed. Control level indicators 
remain on through the detail calculations and output processing of the record 
that caused the control break. They are then set off before the next record is 


peed: START 


a 


Perform detail Perform detail 
calculations. output operations. 


Move data from record selected at 


beginning of cycle into processing area. 


D Set off control level indicators. 


Program Read a record. 


Cycle o> 





Perform total output operations. XY 


Change in 















Perform total control field? 
calculations Yes, set on 
2 control level 


indicators. 


Figure 12. Program Cycle Operations for the Control Level Indicators 


RPG 





Detail operations for the record that caused the control break are done only 
after total operations for previous records. The control level indicator assigned 
to the field that caused the control break remains on so that the first record of 
the group may be identified with that indicator. The record that caused the 
control break is not processed before the total operations are done, because 
information from that record would be included with information from records 


in the previous group. The totals from the previous group would then be 
wrong. 


Ht Specifications 


To specify a field as a control field, you assign a control level indicator (L1-L9) 
to an input field in positions 59-60 on the Input Specifications form: 


NPUT SPECI FICATIONS Ha som UM O60" 


SA 


‘cna erteseee 2 


| Foeld Loration 





Fiedal 





Indicators 


ry 


Controt Level (LELG 


L1, assigned on the same specification line 
as the date field, tells the system to use 
DATE as the control field. 





Beewnal Positions 









To specify which operations are total operations, you assign the same control 
level indicator in positions 7-8 on the Calculation Specifications form and in 
positions 24-25, 27-28, or 30-31 on the Output Specifications form. On the 
Output Specifications form, you must also enter a T in position 15. 
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done only when a control break occurs. The operations on line 01 and line 02 are 
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Use a control level indicator in positions 7-8 to show that a total operation is to be 


done during the detail processing of each input record. The ADD operation in line 
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records are total records. Every tota! record 


specified to tell the system when to do the 
operation. The output operation described 
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when L1 is on. 












You can specify up to three different indicators on a line on the Output 
Specifications form. If you are using only one indicator, you can enter it in any 
one of the three positions. The control level indicators specified on this form 


can be used to condition an entire output record or only certain fields in the 
output record. 


RPG OUTPUT SPECIFICATIONS [x21 Som oun 
IBM ' Coronation rinted an A 


ae ~ om Sa es lee ae tp Ee a ee cise neers 2 15 16 77 78 79 80 
rou Grapme tard Electro Nuniber E £ 
Key. e 
ae me nee apes see af Mime Lame LTT rol TJ. onl LLL 
Pragrarwree | bate Jnstructiog Key | ] —  Hdentitication aS 
SS 4-,32 2 = see | aed Des nist Me Dy || Foe yt acne oath 
O ip eae 
ana: ss Plus Sign 
me Date 































Skip Outpul tndicators 





‘Field Name 






















Feat r Ie . | 
| Cornnas erie Balances Ty sian | OR OY 
en rr i to Print | 
: 1 ny aa 
f : 
ne SY ey | Yes | 1s na ad 
: i vu! No i; 7 lek] Frotd katt | 
Line F itename fad Nj i, Lg te Lot? deco | 
‘ “4 Poston fo Me No i 4 } DEM [.__ Seepress 4 
= & i 8 m # 
< 3 £ 8 Outgut Constant or Edit Word 
é % S Reena | 
= a ee ‘407 3 4 5 & 7 BG 101912 49:14 15 16:17 1819 20 21 22 22 24 + 
Li Aste e & GO wer 12 taht 1H BB: 7 21 22 We BB PAG 41 3. 41 BBR) AS ae ay ak 49 60 51 52 63 44 bb 46 47 58 59 EO 61 6? 63 64 6b b6 67 68 64 70 
Wed 1 Ty TT eo (GR ea a pry? | 
Nye 19 0 PiU | ! it ' : 1 | bg Weg 
| i Mas ne i pod pba bie fh 
ole jo | | i : 6 ! ' 1 | i 
} aa ae i Piudog aa: wedirtan eee hop acd ted fot 
03. lo a ehcate 5 l | i i 


b UR 
SS 









i ae 

0 1 Jo : HG) | debe Anes ot ee al gs 
oye: o | Ia an ; : ie it 
nia, 10 bay : 

1 ) | | A control level indicator specified on the same line as the field name @ 
[) i [9 | itt indicates that the field should be written only when the control level indi- 

ee Ps \ cator is on. Indicator L1 will be on at detail output time only for the first 

5] oO oa 





record of each group. This record is the same record which caused the 
control break and allowed the total operations for the previous group to 
take place. DATE will print only on the first detail line of each group. 
However, a control level indicator specified on the same specification line 
as the line type entry in position 15 @) indicates that the entire line 
should be written when the control level indicator is on. 
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Using the Blank-After Specification 


In RPG II, you can set fields in storage to blanks (in the case of alphameric 
fields) or zeros (in the case of numeric fields) after they have been written out. 
You do this by entering a B in position 39 of the Output Specifications form. 


This is a particularly useful feature when you are doing total operations. It 
allows you to use the same field over and over for accumulating and printing 
totals. For example, you could use a numeric field to accumulate totals for a 
particular group of records. After the totals are accumulated and printed for 
that group, you can use the same numeric field to accumulate the totals for the 
next group of records. To do this, place a B in position 39 for the total field. 

If you do not place a B in position 39, the totals for the second group of 
records would be added to the totals for the first group of records. 
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JOB 3 (TRNREG): USING CONTROL LEVEL INDICATORS TO CALCULATE 
AND PRINT TOTALS 


Job Definition 


Print a weekly sales transaction report that lists all daily transactions and gives 
the total sales for each day. This report is similar to the reports produced in 
Jobs 1 and 2. All items sold each day are listed. Item number, item 
description, quantity sold, unit price, and sales amount (quantity times unit 
price) are included for each item. The date is printed only for the first 
transaction encountered that has a new date. The total sales amount for a day 
is printed after all transactions for that day have been recorded. 


Job Requirements 


Input: Sales transaction file consisting of 96-character records. The records 
are arranged in ascending order by date. The format of the input 
records is shown on the record layout form: 


Transaction | tem Item Unit 
Date Number Description ures Price. 
! 
‘Te [ats [sTolrTe[s fiofu fie [3fis [is Tie fir[ie [19 [20] 21] 20] 23[24]25]26] 27] 28[29] 30] 31 [32 [38 [34] 35] 36] 37 EC 43 [4445 [46 [47 [48 








Two decimal positions 


Processing: 
« Multiply quantity times unit price to find sales amount. 


¢ Find total of all item sales per day. 


Output: A printed transaction register: 










49.0U 
412146 CHL4B AREAKER 15A 100 789 89.00 
@hills 1500 FWIN SOCKFT Bb 500 Lel2 560.00 


Group 
Indication 








698.00 










1/247 -- 9939e9 MUTOR 1/2 HP 60 CYC 2 146.78 293256 
317832 TERMINAL CLIP 100 Sel2 512-00 
326917 TERMINAL BAR 100 4e12 412.200 
4tlkel 1596 SOCKT ADAPT BRN 400 ol® 7660U 
412997 CH173 BREAKER 304A 69 Lel5 69-00 
413988 CHL76 BRc AKER 604 40 1.15 46000 
GLL174 Cr5) STL SWITCH BRN 200 1.16 232-0uU 
413990 CHOO0S BR bOK 15VA 10 4o98 49.80 






718326 FCBO3 FuSt 15a 032 64200 







19754236 






This printer spacing chart shows how the report is formatted: 
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: Input fields are described as before. 
I accumulated and printed. You know that totals must be printed 
I whenever a record with a different date field is read. The date 
EE field determines when total operations should be done. The date 
I field is the control field and must be specified as such. This is 
I done by the L1 entry in positions 59-60. 
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Two different lines—detai!l and total—are needed for this report (note D and T in position 15). 
The detail line is described first. According to the report, the date field is to print only for 
the first record in a new control group. We do this by conditioning the date field with the L1 
indicator. The date will now print only when L1 is on; that is, for the first record in each 

| control group. 
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The total line, which contains only one field is described next. The entire line is conditioned 
by L1 because it is a total line. The B in position 39 causes the DAYTOT field to be reset to 
zero after it is output, but before sales from the next group are added to it. If DAYTOT were 
never blanked out, the totals of all days would be accumulated. 
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Line Filename 


FIRST PAGE INDICATOR 


The first page (1P) indicator is used on the Output Specifications form to 
specify the headings you want printed only on the first page of a report. 
Headings, usually printed at the top of the page, include such things as 
report titles or column names: 
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Space should be left at the top of the paper in order to avoid printing close to the perfora- 
tion. The paper is inserted into the printer so that the first print line will be just below the 
perforation. The skip to line 06 before printing in positions 19 and 20 will begin the print- 
ing one inch below the perforation (assuming six lines to the inch). 























Program Cycle Operations 


One operation in the program cycle is concerned with the 1P indicator (see 
Figure 13). The 1P indicator is automatically set on at the beginning of every 
job, so the first operation taken by the system is to print any output record 
conditioned by 1P. After this is done, the first record is read and the program 
cycle operations are executed in order. 


Headings conditioned by 1P are printed only once—at the beginning of the job 
on the first page of the report. Any heading records that are not conditioned 
by 1P are handled in the same way as detail records. This means that they will 
be printed along with detail records in every cycle. 


START 


a 


Perform heading 


operations. 
Perform detail Perform detail 
calculations. output operations, 


Move data from record selected at 
beginning of cycle into processing area. 
Set off control 


D level indicators. 
Read a record. 


<> “Cycle <> 


Perform total output operations. e 


Perform total Change in control 
calculations. field? Yes, set 


on control level 
indicators. 


Note: The first operation in the first program cycle concerns output operations conditioned by the 
first page (1P) indicator. 


Figure 13. Program Cycle Operations for 1P Indicators 
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RPG Il Specifications 
Heading information to be printed on the first page of a report is specified by 
using constants (actual information instead of field names). Constants for 


headings must be specified according to these rules: 


- Constants must be entered in positions 45-70 of the Output Specifications 
form. 


¢ Constants can contain any of the characters in the data character set (the 
256 EBCDIC characters). 


- Constants must be enclosed in apostrophes. (The beginning apostrophe is 
always entered in position 45.) 


« No field name can be used on the same line as a constant. 


« An end-position entry must be entered for every constant. 
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R NUMBER * ~ Valid constant. 


OME 





Invalid constant. The constant must be preceded 
by an apostrophe in position 45. 
Invalid constant. A field name cannot be specified 


on the same line as a constant. 
Invalid constant. The last character in the constant 


must be followed by an apostrophe. 
Valid constant. 


Valid constant. Although the constant is specified 
correctly, it will be unreadable when printed 
because no spaces were left between words. 


66 


Headings too long to specify on one line of the Output Specifications form can 
be split and placed on separate lines. You must, however, give an end position 


for each part. 


The heading shown in the printer spacing chart takes 28 positions. A constant 
containing a maximum of 24 characters can be specified on one specification 
line. Because the entire heading cannot be specified on one line, it must be 
broken into parts. The examples given show three different ways to specify 


this heading: 
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Heading lines should be specified first on the Output Specifications form. The 
best method is to specify your record types in this order: heading, detail, and 


total. 
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OVERFLOW INDICATORS 
You use overflow indicators to: 


« Print headings on every page but the first page of a report (the 1P indicator 
allows headings to be printed on the first page). 


« Control where printing begins and ends on a page. 


« Advance forms from one page to the next (provided a skip specification is 
also used). 


To understand how overflow indicators work, you must know how the concept 
of overflow is defined in RPG tl: 


* Overflow—Lines that remain to be printed after a page is full. 


¢ Overflow handling—Advancing forms to a new page after the last line has 
been printed on the current page. 


« Overflow line-The last line to be printed on a page. 


* Overflow page—The new page to be printed when overflow occurs. 
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when the overflow 
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Printers use continuous forms (a series of pages divided by perforations). Cverflow 
handling refers to the means of advancing forms from one page to the next. 


Overflow can be handled automatically by the system or through specifications 
you write. 


Note: This discussion assumes that you are using standard 66-line forms in the 
printer. 


Printing always begins on line 06 (assuming the operator positions the first 
page properly) and ends with line 60. Overflow occurs after line 60 is printed; 
that is, forms advance to line 06 of a new page. 


When overflow is handied automatically, heading lines can be printed on the 
first page if 1P is used. No instructions are provided, however, to print 
headings on overflow pages. Heading lines are considered to be detail lines 
and will print on each detail cycle if the conditions placed on printing are met. 


When you do not want overflow handled automatically, you can specify on the 
coding forms how you want it handled, using overflow indicators: 


File Description Specifications 
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Assign an overflow indicator to the printer at ‘OF then use it on the Output Specifi- 
cations form at @) to show which operations must be done when overflow occurs. 
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Program Cycle Operations 


Figure 14 shows operations in a program cycle in which overflow indicators are 
used. 


The program sets on the overflow indicator you assigned whenever the 
overflow line is passed. By setting the overflow indicator on, the program 
remembers that overflow has occurred. As you can see in Figure 14, overflow 
indicators can be set on at one of two times: at detail time when a detail 
record prints on the overflow line or at total time when a total record prints on 
the overflow line. Notice that the only time a check is made to see if the 
overflow indicator is on is right after total output. if the overflow indicator is 
on, overflow operations are done in this order: 


1. Print any total lines conditioned by the overflow indicator. 


2. Skip to new page, provided a skip specification was made on a line 
conditioned by the overflow indicator. 


3. Print all heading and detail lines conditioned by the overflow indicator. 


If multiple detail or total lines are to be printed in a single cycle, printing may 
occur past the designated overflow line. This is because all detail and total 
printing for a single cycle is completed before overflow operations occur. 


Perform detail 
calculations. 





Move data from record selected at 
beginning of cycle into processing area. 








Overflow indicator on? Yes, 
do overflow operations and 
set overflow indicator off. 





If overflow line has been reached, 
set on overflow indicator. 


calculations. 


Figure 14. Program Cycle Operations for Overflow Indicators 
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Program 
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RPG Il Specifications 


There are eight overflow indicators: OA through OG and OV. You can enter 
any one of these indicators in positions 33-34 on the File Description 
Specifications form. If you have more than one printer file, however, you must 
specify a different overflow indicator for each file. 


After you have specified an overflow indicator on the File Description 
Specifications form, you must specify the same indicator on the Output 
Specifications form. This specifies what you want done when overflow occurs. 


Besides specifying the overflow indicator, you must also specify that forms 


should advance. You do this by placing a skip specification in positions 19-20 
on the Output Specifications form. 
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Constant or Edit Word 


The skip specification should be made on the first line you want printed on the 


page (usually a heading line). The skip entry is the line number of the 
beginning line (usually 6). 


Always remember to enter a skip specification for advancing forms in a 
heading line conditioned by the overflow indicator. If you forget, forms will not 
advance when overflow occurs. 


Using Spacing with Overfiow 


You already know that the overflow indicator is turned on when a record is 
printed on the overflow line. However, this indicator also turns on whenever 
the overflow line passes under the printing mechanism. This means that 
Spacing to a line past the overflow line to a line on the same page causes the 


overflow indicator to turn on. Figure 15 shows an example of spacing after 
printing. 
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Assume, for example, the overflow line for a job is tine 60. Assume also that 

















the detail line specified prints on line 59. Printing the detail line does not cause 





| ie 
ait hfe, Lae 
| the overflow indicator to be turned on. However, this detail specification allows | | | 
ae for two spaces. Spacing two lines moves line 61 into printing position. The ial: 
eee overflow line (line 60) has been passed so the overflow indicator is turned on. | | | [ 
rol lo | ’ 
, . | i i ok 
































(ALGAE 
i HH 











1) 
-) | | 
9 | Ld bel bed 
Le | ‘ aie 4 ee tot. sae ol aheattatt \ vi 
{ PELE OF 88 A199 597 BEEN ADE 08 BE BG ET ANG Bs PEG TE DG A RE Te Ie oe Reb ee Th Ob OF HE OTP G8 GE MOLE Ah US Oh OC We re Ue Oe Oe ee Oe Te Oe GL REE a bb ot 





Figure 15. Spacing after Printing 
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Using Overflow and 1P Indicators Together 


The overflow indicator is most often used with other indicators. However, we 
will discuss the use of overflow indicators only with the 1P indicator. Both 1P 
and OV cannot be on at the same time. 


If you want headings on all pages of a report, you can use both the 1P 
indicator and an overflow indicator. 1P causes headings to print on the first 
page; the overflow indicator causes them to print on all succeeding pages. If a 
record should be printed when either one or another condition occurs ‘either 
1P or OV is on), you can specify indicators in an OR relationship. 
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If a record can be written when either one of two conditions exists, place the conditioning 
indicator in an OR relationship. Specify the indicator signaling one condition (1P :n this 
case) on the same line as the line type. Place the indicator signaling the other condition 
(OV in this case) on the following line with the word OR in positions 14-15. Then specify 
fields and constants to be included in the record in the normal way. In this example, headings 
will print when either 1P or OV is on. 
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Space and skip entries are not necessary in the OR line. The entries in the jine preceding the 
OR line also apply to the OR line. 
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LAST RECORD (LR) INDICATOR 


The last record (LR) indicator is associated with end-of-job procedures. The 
program uses LR to indicate that the last data record has been read and that 
end-of-job processing is to take place. 


Use of the last record (LR) indicator is optional. When LR is not used in 

specifications, the compiler automatically supplies end-of-job instructions. If 
you use LR, you are indicating that certain operations, such as printing a total 
count of all records read, must be done after all input records are processed. 
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Program Cycle Operations 


Figure 16 shows the operations in the program cycle associated with the last 
record indicator. RPG Il is set up so that it senses an end-of-file record 
containing some identifying information to indicate end of the data file. Each 
data file has an end-of-file record. 


Whenever a record is read, the program checks to see if all records in a file 
have been processed. If all records in all of the files have been processed, the 
program sets on all control level indicators L1-L9. It also sets on the LR 
indicator to indicate that all records have been processed. All total operations 
(those conditioned by LR and L1-L9) are performed. After total operations 
have been done, the program checks to see if LR is on. If it is, processing 
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Figure 16. Program Cycle Operations for Last Record (LR) Indicator 
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RPG II Specifications 


The LR indicator is specified by an LR on the Calculation Specifications form or 
Output Specifications form. This entry specifies which operations are to be 


done after the last record is processed: 


RPG CALCULATION SPECIFICATIONS 


Hanna Bao cinees Mi Bienes Coan pee ities 











IBM 


Prot am 










Programme 


Result Field 


Operation 








SPECIFICAT 


IONS 


hationa Bs. Saess Mach. 


jee aise as oo _ J Keying 
| Date lestracteon 














>THE] 






2 


Ie 











Line 





76 


Soto ToL Or oe 












a ae i eto Batanients | 
>  Gomias. Sele Say 
pe : to Pant Ne bin 
ves | " 1 
Yon os Ne \ ? 
filename No You i 3 
Pounon Ne No {4 


Fore Type 













Gateut 
Recoel 








“AUTO 


BIA OR 


Edt Codes 








G21 9093 UM-050" 
Ponte SA 


Progiamn | 


Identidheation 


Conimurits 


Prous 
Ident fication 


x Hernove 
Plus Sign 

‘ Parte: 
Pete bale 

/ Jor 
Suppers 





1% My #2 78 7/9 BO 


PET T | 


i 
{ 
1 


G21 9090) UIMF050" 
Pond in SA 


5 76 77 78% 79 BO 


| 
| 







PLL] 








42° 33 346 36 36 $7]: eB fan a1 4a a: taeda ae 
| i | 
eae ry 
| Ie 5 
| | i | 





The LR indicator is specified at @ to tell the system which calculations are to be 


done after the last record is processed. The LR indicator is specified at @) to tell the 


system which output operations are to be done after the last record is processed. 
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JOB 4 (TRNREG): USING FIRST PAGE, OVERFLOW, AND LAST RECORD 
INDICATORS TO PRINT HEADINGS AND TOTALS 


Job Definition 


Print a weekly sales transaction report that lists daily transactions, total sales 
for the day, and total sales for the week. This report is similar to the one 
created in Job 3. The only difference is the addition of headings and final 
total. 


The report title and column headings are printed on every page of the report. 
All items sold each day are listed. Item number, item description, quantity 
sold, unit price, and sales amount are included for every item. The date is 
printed for the first transaction in each group. After all transactions for a day 
are listed, the daily sales amount is printed. A final total of all daily sales is 
printed at the end of the report. 


Job Requirements 
Input: Sales transaction file consisting of 96-character records. Records are 


arranged in ascending order by date. The format of the input records 
is shown on this record layout form: 







Item Item unit 


Transaction ; 
Number Description Quantity | Price 
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Two decimal! positions 


Processing: 
¢ Multiply quantity times unit price to find sales amount. 
« Accumulate sales amount to find total item sales per day. 


« Accumulate total daily sales to find total weekly sales. 
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Output: A printed transaction register: 


TRANSACTION REGISTER 


TRANSACTION ITEM DESCRIPTION QUANTITY 
DATE NO 


T/23/ >> 413010 CHOOL BOX 100A FLUSH 
412146 CH148 BREAKER 15A 
4llllo 1500 TWIN SOCKET 8 


503029 MOTOR 1/2 HP 60 CYC 
327802 TERMINAL CLIP 
326013 TERMINAL BAR 


321071 2-SPEED SAW 

325781 SATEN-CUT DADO SET 
412146 CH143 BREAKER 5A 
573022 6-VOLT POWER BATTERY 


WEEKLY TOTAL 


This printer spacing chart shows how the report is formatted: 
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JOB SPECIFICATIONS 
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The onty new entry here is the OV indicator. Headings are 
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£8.20 21 22 7930 958 36 Who nw sa] Sales have been accumulated for 

Ty ULT H| @ group (L1 is on), daily total can 

XTCS eo | be added to the field WEEKTO 

ay Or. Heo | used for accumulating weekly total. 
A : 


: Ppa ft bee Serr] || 1 1 i pees (Weekly total could also have been 
fe “hi | | PSPS erd $0: epee) obtained by adding EXTCST to 
WEEKTO for every record read.) 
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i 0 chs eaeaa 1 EAS: 4 | IDA ai IP te H [ ole ed -+ + 
lpr et PEE Cee 
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O Output Indicators 
ens 
; 
bine Filename 
& 
, Constant or Edit Word 
= o 6 7 @b me 0 11°92:12°14 15 16017 18 19 ZO 21-22 22 24 * 
[ees So gee es Ot | Tne bi nd 0) bas 7 9B 1 uO 6 6? bal na ia 660 
oll op ro 
ut ek Ge AM : 
ole lo | i 
6 3 ° ; ! fie ee oe | 
DA of, os a ET ep BS Pe PD BTA Cor 'gepp pc t b i i 
+ Ae ee bbe Ly giles as cr tag at] i a oe eae ee 
oO] | : 
beh ee, fests cae. ie wis Shes 
a “o lis .., fina oA a | ; 
Oi? oO . (iM i 
oa oS Pops gre WSS Page fae als 
fy & oO fe oh . ! j | i 
oo i ga elit Hasta h oh tat, 
[or ol ‘WEEKLY TOTAL’ | 
ro lo : | a ij | : 
Soule 2: fel be eed Be bf, ER) 7M 
i's lo ' ‘| Six different lines are to be printed, so six are described. The three heading lines should be 
res Jofp re: printed either when 1P is on (first page) or when OV is on (overflow has occurred and forms 
tia; jot | ; | .[ have advanced). Thus, each heading is conditioned by 1P and OV used in an OR relationship. 
yy | ba tht Notice the first heading line has the skip specification. This must be made before forms will 
le} Jo! | i 
et i || | | +} advance. 
wr jo} pd | 
via fol | poet 
bas'lol The weekly total is printed only once on the report, after all records have been processed. It 


is conditioned by LR. A constant is specified for this total record so the words WEEKLY 
TOTAL will print as indicated on the printer spacing chart. 


RECORD IDENTIFYING INDICATORS 


In the jobs discussed so far, we have assumed that all records in the input file 
were alike. They did not necessarily contain the same information, but they 
had the same fields and the same kind of information in each field. They were 
of the same type. 


However, in real jobs, often data files will not contain records of all the same 
type. Files often contain many types of records with different fields and 
different information. When using different record types in a job, you must 
have a way of telling the system what operations (calculations and output) you 
want done for each record read. Record identifying indicators are used for this. 
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Program Cycle Operations 


Figure 17 shows program cycle operations associated with record identifying 
indicators. A record identifying indicator is set on right after a record is read 
and is set off before the next record is read. 


Normally, record identification indicators condition detail calculations and detail 
output operations because detail operations are done for the record just read 
(the one associated with the record identifying indicator). On the other hand, 
total operations are not performed for any one record type; they are done after 
a certain number of records are processed. 


START 


a 


Perform heading 
operations. 
Perform detail 
output operations. 
: If overflow tine 
Saleulations: . "has been reached, 
set on overflow 
indicator. 


Perform detail 


Move data from record selected at SH a 
beginning of cycle into processing area. Set off control 
eS level indicators. 


Set off record identifying 
indicators. 


Overflow indicator on? Yes, do Ly 


overflow operations and set 
overflow indicator off. 





Read a record. 
Program 


Cycle 


tee isn Matsa tote atone 





iR indicator on? Yes, end of 


job hes been reached Last record? Yes, set on 


control level and LR 
indicators and perform 
total calculations. 





Perform total output operations. X y 
If overflow line has been reached, nice Dee S 


set on overflow indicator. Set on record 
“ wt : identifying indicator. 











Change in control 
field? Yes, set 
- on control level 
_ indicators. 


Perform total 
calculations. 







Figure 17. Program Cycle Operations for Record Identifying Indicators 
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RPG I! Specifications 


These are the RPG II specifications you must make when using different record 
types and record identifying indicators: 
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Output Indicators 
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Assign a record identifying indicator (a 2-digit number from 01-99) to each 
record as Q), then use that same indicator to condition calculations at (2) and 
detail output operations at G) , which must be done for that record only. 
identify each record type by describing a code which identifies it at @). 

If records must be in a certain order, indicate that sequence at ‘OF 
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As we said earlier, you must describe each type of record in your input file. 
This description includes the names of all fields used from the record, the 
location of the fields, and the type of data in the fields: 





Customer [Order |, | ITEM 


Number Number |f 32 Number 
(CUSTNO) (ORDNO) § a (ITEMNO) 


[iy 2[3fa[s [era fo fioln siz] i3fia {15 Jie] i7[18 {19 {201 211 22] 23] 24] 25! 26 [27 





Field Location 


Filename 


Form Type 

Peat + neve 15-48 OF = 
Canticd toetibe rer 
Matching Fields or 
Chaining Fields 














ee 
hg 
Ee 

ia 
ipa 
| Eg 
Lee 
beg 
Tg 


ololoraeloloflofofofe 





When you describe fields from each record type in the input file, give a unique 
field name to every different field from all record types. If, however, two or 
more record types contain identical fields, you can assign the same name to 
the field in each record type. Only one storage area would be assigned for the 
same field from several record types, but it would not matter because the 
information in the field is the same. 


You must do more, however, than merely list the fields in all records because 
the RPG II compiler would not know which fields were in each type of record. 
Furthermore, it would not know which record it was reading. To give the 
compiler a means of identifying records, you use record identification codes 
and record identifying indicators. 





Specifying Record Identification Codes 


When you create records, you should include an identification code in each 
one. For example, to identify an item transaction record, you might place the 
code TR somewhere in that record. You can use any combination of letters 
and numbers for the identification code and you can place the code in any 
record positions. 


When you describe the record on the input Specifications form, you use 
positions 21-41 to describe the record's identification code and the location 
where the code is located in the record: 


RPG INPUTS For each character in the code 
you must specify: 





a) Where in the record the 
character is found. 






character is. 
Filename (2) What the cha da 
(3) The fetter C to indicate 
character. 


: @) If the code requires that a 
ge lleler Vary YY ‘ character must not be present, 
Ea ae enter N before the letter C. 





You can specify a code of up to three characters on one line. If your code 
contains more than three characters, use the next line and the word AND in 
positions 14-16. Figure 18 shows some examples of how to specify record 
identification codes. 


RPG INPUT SPECIFICAT 
IBM ........ 


| Presytan | 


: BA Se ee ah Gan Se 
Boal Record Identification Coors r 
= ae cae + ae ee jac? aT — oe 1 













Codes 


Lr 


T in position 80 —_— 
















ST in positions 1,2 ————__________, 


iy 


[ee 





1A in positions 95, 96 ———__________ 


ae 
fr 
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SITET 
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os 


Figure 18. Valid Specifications for Record Identification Codes 
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Specifying Record Identifying Indicators 


You specify a record identifying indicator in positions 19-20 for each record 
type used in the job. Record identifying indicators are numbered 01-99. Use a 
different number for each record type. 


A record identifying indicator is specified on the same line as the identification 
code. All fields for the record are then listed, starting one line below the 
identification code and identifying indicator. The file name need be specified 
only once, on the specification line describing the first record in the file. 
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, Two record types from the master file are described here. One record type is identified by 
the code CA in positions 1 and 2. It is assigned record identifying indicator 01. The other 
record type, which is assigned record identifying indicator 02, is identified by ST in positions 
1 and 2. Note that no file name is used for the second record type. The compiler assumes 

that this record is in the master file because MASTER was the last file name given. 


Se 


After reading a record, the program checks the identification codes to 
determine which record it has read. When it finds a match between the code 
on the record and the code stored from the Input Specifications form, it turns 
on the record identifying indicator associated with that record. This is the 
program's way of remembering which record it read. 


Record identifying indicators can be used to condition calculations, output 
records, or output fields. In this way, the program performs the proper 
operations for each different record type. 







Prated in U S.A. 


1879 80 





When you use record identifying indicators to condition calculation and Output 
operations, you are assured that these operations are done only for appropriate 


records. If you do not use these indicators, operations will be done on all 
records. 


Record identifying indicators should be assigned even when there is only one 
record type in a file. If you do not use them, the compiler prints a message 
telling you that record identifying indicators have not been assigned. 


The record identifying indicator should also be used to condition detail output 
records. This prevents detail lines from being written on the first cycle. If the 
detail line is not conditioned by a record identifying indicator, any constants 
you specified on the detail lines would be printed even though the first record 
has not been read. 


Specifying Record Type Sequence 


Sometimes records must be in a particular order within a record-type group, 
but at other times the order makes no difference. When records need not be 
in a particular order, enter two alphabetic characters in positions 15-16. 
Different alphabetic characters can be used for each record: 













Record identification Codes § 





eI Field S 





Filename 





Record identifying indicator, 





Option (0). U, S 


Form Type 
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If the records must be in a specific sequence, you must make entries in 
positions 15-18. 


Positions 15-16 (Sequence) contain numeric entries (01-99). 
The sequence entries must be in numeric order. 


@ Position 17 (Number) tells how many records of this type 
to expect in the record-type group: 


Fitename 


Character 


1 = One and only one 
N = One or more 


s 


@) Position 18 (Option) indicates whether the record type is 
required in the record-type group: 


Blank = Record type is required 
O = Record type is optional 


Positions 15-16 should have an entry for every record type specified. If there 
is only one type per file the entry should be alphameric. If you fail to use a 
sequence entry, the compiler prints a message saying that no entry was made 
in positions 15-16. 


JOB 5 (STOKST): USING RECORD IDENTIFYING INDICATORS TO PROCESS 
DIFFERENT RECORD TYPES 


Job Definition 


Print a stock status report. This report is printed whenever the inventory is 
updated. It gives detailed information on all active merchandise. The first line 
for each item in the report shows standard descriptive data for the item: item 
number, item description, quantity on hand, and quantity on order. This 
information is taken directly from the input record. 


Subsequent lines give the detail on current transactions involving the item: 
sales to customers and receipts from suppliers. This information is also taken 
directly from input records. 

Quantities remaining on hand and on order are calculated for each item and 
printed after all transactions for the item are listed. 


Job Requirements 


Input: An inventory file consisting of three different types of records. 
Formats of the three record types are: 


Name ITEM MASTER RECORD 







tem Kkem Unit 
Number Description cost 


CCE 


Name [SSUE RECORD 


Quantity] Quantity 
ON ON 
Hand | Order 


wofale 2 ar i ThTh 35]36]37 ff a 
| | i i 
il Ltt aM Ns Mia 


TE 




















Two decimal! positions 








ltgen 
Number 


7 13/14 [15 [16 T 17/18 [9 120 PCa ec 4 ath ere 42]43 44/45] 
: red Le] ; | Gs 
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name RECEIPT RECORD 





8 [9 fiat ti2 | alia | [ujisfe ! et |e pane TT 7 fel sya 35136[37 [38 * eee 
i [TI We est iT 
TRECCELEETPPE PPE EEE EEE 


i 
a 


The file is organized in ascending order by item number. For each item, one 
master record is required. Issue and receipt records are optional. When 
present, however, there may be any number of each. Records for each item 
are in this order: 

1. Item master 


2, Issue(s) 


3. Receipt(s) 


Processing: 


¢ Find total number of each item sold. To do this, perform the calculation 
ISSUE + TOTAL ISSUE = TOTAL ISSUE for each issue record. 


¢ Find total number of each item received. Perform the calculation 
RECEIPT + TOTAL RECEIPT = TOTAL RECEIPT for each receipt record. 


+ When all transaction records for one item have been read, find new 
quantity onhand (ONHAND + TOTAL RECEIPT - TOTAL ISSUE = NEW 
ONHAND) and new quantity on order (ON ORDER - TOTAL RECEIPT = 
NEW ON ORDER). 


Output: A printed stock status report: 


STOCK STATUS REPORT 


TTEM NO OESCRIPTIIN QUANTITY QUANTITY TRANSACTION 
ON HAND ON ORDER QUANTITY 


411116 BS00 TWIN SOCKET BLUE 458 500 
TSSUE 50 
RECETPT 500 


411122 8506 SOCKET ADAPT BRN 
ISSUE 
TSSUF 
ISSUE 


411173 CislC SIL SWITCH IVORY 
RECEIPT 


411254 A210 PULL CORD GOLO 
TSSUE 
ISSUE 
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This printer spacing chart shows the format of the report: 
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Wy | 


Two files are used for the job: one input and one output. In the job description 
given, the output file was associated with the printer, but the input file was not 
associated with any device. Darkened columns show required entries; the entry 
depends on the device being used. 


File Description Specifications 


File Addition/Unordered 






Name of 
Label Exit 







Symbolic 
Device 


Continuation Lines 
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All three types of records in the input file must be described. Because they are to be arranged in a certain 
sequence in the record-type group, they are described in the order they will be read. The first record in the group 
is the item master record (identified by M in position 1). The 01 in positions 15-16 indicates that this record is 
first. The record is required (position 18 is blank) and there must be only one per group (1 in position 17). It is 
assigned record identifying indicator 10. All fields found in the record are then described. Note that the record 


code appears as a field on the record layout form. However, on the Input Specifications form it is not described 
as a field but as the record identification code. 














The second record in the group (02 in positions 15-16) is the issue record, identified by | in position 1. There may 
be several of these records per group (N in position 17). The record is optional (O in position 18). The record 


identifying indicator 20 is assigned. Fields in the record are then described. The third record in the group is 
described as were the previous two. 








ITEMNO field in the item master record is assigned as the control field. When it changes, all transaction records 
for the item number have been Processed. 
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RPG CALCULATION SPECIFICATIONS ees Me 





































IBM . : err Poated im US A 
< » Stock Status ee re mani (SATE 
ae «John Doe |owislre/-- [a ae gy te i i | - |  BSlo_ Totateaen OT OWNS IZ 
ea Indicators Result Field ee 
33 ont sie She Phas ed cao : be 
oS And And Faetar t Operation Facwr 2 z= pee Comments 
a] 3 4 Name Length © Ie sl 727] ro 
af 7 LS | E Lookup(Factor Dis} 
: lz | 3 [isl ¥ giz Hi Tow equal 
' 3 Bj fi Pedy  Apsues TT noo Torso | lrorsul | sd] PHY eeig mien Woe 
af Pt itt 
iT3d. GR i a Apo Pormee | noreec Ei (CLL |erwo Toran RECD 
L AND UB TOTISD || | Wewown | CA) ||. FIND WEW TOTAL 
ae Wevewa || Mapp oraec We Ao: Co AND 
dy L, , WEWC DD | Pt a ONAN as 
gee Hie ce Tilt soa | [re fee [pwewona ae) EE FN GNOHDR 
ab E Pensu' bos Patasy . orre ct LL} lclead Tort sy 
we REC SUB TOT Gd) lrorrec || LL Pte a OrREC i 
Teak Ta EE ‘ 
cA ECRrRECER |: Bo 





Tl 
Pl 
bat 





To update the quantity on hand and on order, total number issued (TOTISU) and total number 
received (TOTREC) for each item is needed. Quantity sold is found only in the issue record. 

Thus, the calculation to find TOTISU is done only when the issue record is read. Record identifying 
indicator 20 was assigned to the issue record. When 20 is on (an issue record has been read), we can 
calculate TOTISU. Thus, the operation (line 01) is conditioned by indicator 20. The operation to 
find TOTREC can be done only when a receipt record is read. The operation (line 02) is conditioned 
by 30, the record identifying indicator assigned to the receipt record. 


Calculations to update quantity on hand and on order are total operations and can be dane only 
after all transaction records for the item have been processed. They are conditioned by L1 which 
is set on when a new item number is read. 


The operations on line 06 and 07 must be used to clear the total issues (TOTISU) and total receipts 
{TOTREC) fields after the quantity on hand and on order have been calculated. 
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7 : 
~ Jo] | Heading lines are to print on every page. They are conditioned by 1P and OV used in an OR relationship. 
ss 0 

oO 


Not all detail lines are to print for each record. The first should be printed when the item master record 
5 ob is read. It is conditioned by 10, which is the record identifying indicator assigned to the item master 

|| record. The second detail line prints when an issue record is read, so it is conditioned by 20. The 

third detail line prints when a receipt record is read. It is conditioned by 30. 





3 The printer spacing chart shows that the words ISSUE and RECEIPT are to print on the detail lines. 
Tor These words are not fields so they are entered as constants on the appropriate detail lines. Note that 
o| | asterisks indicating totals are also entered as constants on the total line. 
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RESULTING INDICATORS 


Sometimes your decision to do a certain operation is based on the result of a 
previous operation. Resulting indicators allow you to specify which operations 
you want done and the conditions under which the operations are to be done. 
Resulting indicators can be used to determine such things as: 


« Whether a result is larger, smaller, or equal to a predetermined number. 


« Whether a certain result is plus, minus, or zero. 


Program Cycle Operations 


Figure 19 shows the operations in the program cycle associated with resulting 
indicators. Resulting indicators are set when the associated calculation 
operation is performed. This means that resulting indicators can be set either 
at detail or at total calculation time. 


Resulting indicators are not set off automatically. They change their setting 
only at the time a calculation is performed or when they are set off 
intentionally. For example, if a resulting indicator is set on by a detail 
calculation, it retains this setting until the next time it is used as a resulting 
indicator. 


START 


ag 


PE i Perform heading 
Perform detail operations. 


calculations. Perform detail 
Set resulting output operations. 
Banas If overflow line 
indicators. 


has been reached, 
set on overflow 
indicator. 





Move data from record selected at 


beginning of cycle into processing area. Set off control 
Sepia Sema sora amit, level indicators. 


Set off record 
identifying indicators. 





Overflow indicator on? Yes, do | Ly 
overflow operations and set 3 
overflow indicator off. 





Read a record. 
Program name 


LR indicator on? Yes, end of 
job has been reached. 


Last record? Yes, set on 
control level and LR 
indicators and perform 
total calculations. 





Perform total output operations. XY 

If overflow line has been reached, 

set on overflow indicator. Set on record identifying 
indicator. 


Perform total : : fre 
calculations. Change in control 
Set resulting field? Yes, set 


indicators. on control level 
seme indicators, 





Figure 19. Program Cycie Operations for Resulting Indicators 
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RPG II Specifications 


The type of operation used to check the result field depends on the type of 
result being checked. !f you want to determine whether the result field is 
larger, smaller, or equal to a certain number, you must use a compare (COMP) 
operation. If you want to determine if the result field is plus, minus, or zero, 
use an arithmetic operation (ADD, SUB, MULT, DIV). You can specify resulting 
indicators 01-99 on these specifications forms: 
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Resulting indicators are assigned at Q), then used to condition calculation 
Operations at @) and output operations at 


Resulting indicators and record identifying indicators are used in the same way 
to condition output and calculation specifications. You should not use the 
same entry as both a resulting indicator and a record identifying indicator. 


Using the Compare Operation 


In many jobs you need to know whether a field is greater than, smaller than, or 
equal to another field. RPG II language has an operation code, COMP, which 
allows you to compare fields. The compare operation requires entries in these 
columns on the Calculation Specifications form: 





Resultin 
Result Field ae 


@ Factor 1 (either a field name or constant) 
@ Factor 2 (either a field name or constant) 
@ Resulting indicators 


Operation 





When compared, Factor 1 and Factor 2 can be in one of three relationships: 
@ Factor 1 can be greater than Factor 2. 

@ Factor 1 can be less than Factor 2. 

@ Factor 1 can be equal to Factor 2. 


You indicate that a test should be made to check for one, two, or all three of 
these relationships by entering indicators in the appropriate columns: 


Resutning @) A resulting indicator entered in positions 54-55 
meee ‘ tells the system to determine if Factor 1 is 
greater than Factor 2. 


A resulting indicator entered in positions 56-57 
tells the system to determine if Factor 1 is 
less than Factor 2. 


A resulting indicator entered in positions 58-59 
tells the system to determine-if Factor 1 is 
the same as Factor 2. 





The test you specify is made each time the COMP operation is executed. 
However, the resulting indicator is set on only when the proper relationship 
exists. If you entered indicator 50 in positions 54-55 to test whether Factor 1 
is greater than Factor 2, indicator 50 would be set on only when Factor 1 is 
greater than Factor 2. If the relationship does not exist, the indicator is set off. 
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When testing for more than one condition, you can use the same or different 
indicators in these positions. If you intend to do different operations for each 
of the three conditions, enter a different resulting indicator to test for each 
condition on the Calculation Specifications form: 
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set on. . The other resulting indicators are set off. na! o 
penenerne 


100 











al Business Machines Corporation 





If you want to do the same operations when either one of two conditions 
exists (Factor 1 is greater than Factor 2; Factor 1 equals Factor 2), you could 
use the same indicator to test for both conditions on the Calculation 
Specifications form: 
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We explained previously that constants can be used in arithmetic calculation 
operations, but they must be numeric constants. In a COMP operation. 
however, constants can be either alphameric or numeric. Rules for using 
alphameric constants as Factor 1 or Factor 2 are a little different from those 
for using numeric constants: 


Rules for Numeric Constants Rules for Alphameric Constants 








@ A numeric constant can be any An alphameric constant can be any 
combination of digits 0-9. Decimal combination of characters (letters, 
points and signs can also be digits, and special characters). 
included. Blanks are also valid. 


The maximum length of a numeric The maximum length of an alpha- 
constant is 10 characters, including meric constant is 8 characters. 
sign and decimal! point. 


Numeric constants must not be Alphameric constants must be 
enclosed in apostrophes (’). enclosed in apostrophes (‘). 





When you use the COMP operation code, remember to always compare two 
numeric fields or constants or two alphameric fields or constants. You cannot 
compare a numeric field or constant to an alphameric field or constant. 


Using an Arithmetic Operation 


You can test the results of an arithmetic operation (ADD, SUB, MULT, DIV) for 
plus, minus, or zero by entering resulting indicators in the appropriate positions 
on the Calculation Specifications form: 


Resulting 


Indecatons QQ) A resulting indicator entered in positions 54-55 
are tells the system to determine if the result field 
is positive (plus). 


@) A resulting indicator entered in positions 56-57 
tells the system to determine if the result field 
is negative (minus). 





3) Aresulting indicator entered in positions 58-59 
tells the system to determine if the result field 
is Zero. 


The tests you indicate are performed each time the operation is executed. 
However, the assigned indicator is set on only if the field satisfies the 
condition tested. If you entered indicator 99 in positions 54-55 to test the 
result field for plus, indicator 99 would be set on only if the result field were 
plus. If the condition is not met, the indicator is set off. 





























Again, as with the COMP operation, you can test for one, two, or all three 
conditions at the same time. When testing for more than one condition, you 
can use the same or different indicators in these positions. If you intend to do 
different operations for each of the three conditions, enter a different resulting 


indicator to test for each condition: 
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If you want to do the same operations when the result field meets either one 
of two conditions (plus or zero, minus or zero), you could use the same 
indicator to test for both: 
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JOB 6 (STOKST): USING RESULTING INDICATORS TO TEST CONTENTS OF 
RESULT FIELDS 


Job Definition 


Print a stock status report similar to the one in Job 5. The only difference is 
the addition of maximum and minimum balances. Item master records usually 
include the maximum and minimum on-hand quantity for all items. These 
figures are kept so that checks can be made, whenever the inventory is 
updated, to determine if quantity on hand is within the limits set. 


The first line for each item in the report shows standard descriptive data for 
the item: item number, item description, quantity on hand, quantity on order, 
maximum and minimum balances. Subsequent lines give the detail on current 
transactions involving the item. Quantities remaining on hand and on order are 
calculated for each item and printed after all transactions for the item are 
listed. Whenever shipments reduce stock on hand below the predetermined 
minimum balance or whenever receipts push the quantity on hand above the 
predetermined maximum, an exception condition is noted on the report. 


Job Requirements 


Input: An inventory file consisting of three different record types. Formats of 
the three record types are: 





Name ITEM MASTER “RECORD 
_} Tem UNIT |Quanrity| QUANTITY MAX | MIN 
5] NUMBER DESCRIPTION cost | oN | on | BAL | DAL 


Q HAND | ORDER 
reefs letslelt tals [o[n lie] 3] [is [ie [i7[ia [9 [20] 2 f2e]2a]za]es| 26] 27] 28]29 ans if 10 [5] 4s [go fo [ts 234s] eso 





Two decimal positions 
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Name ISSUE RECORD 
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The file is organized in ascending order by item number. For each item, one 
master record is required. Issue and receipt records are optional. When 
present, however, there may be any number of each. Records for each item 
are in this order: 


1. Item master 
2. Issue(s) 

3. Receipt(s) 
Processing: 

« Find total number of each item sold. To do this, perform the 
calculation ISSUE + TOTAL ISSUE = TOTAL ISSUE for each issue 
record. 

« Find total number of each item received. To do this, perform the 
calculation RECEIPT + TOTAL RECEIPT = TOTAL RECEIPT for each 
receipt record. 

« When all transaction records for one item have been read, find new 
quantity on hand (ON HAND + TOTAL RECEIPT - TOTAL ISSUE = 
NEW ON HAND) and new quantity on order (ON ORDER - TOTAL 
RECEIPT = NEW ON ORDER). 

« Compare the new quantity on hand to maximum and minimum 


balances to determine if an exception condition should be noted on 
the report. 
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Output: A printed stock status report: 


STOCK STATUS REPORT 


ITEM NO DESCRIPTION QUANTITY QUANTITY TRANSACTION 
‘ ON HANO ON ORDER QUANTITY 


G1Li16 B500 TWIN SOCKET BLUE 458 
TISSUE 
RECEIPT 


411122 B506 SOCKET ADAPT BRN 
ISSUE 
ISSUE 
ISSUE 


411173 C151C SIL SWITCH IvoRY 
RECEIPT 


411254 A210 PULL CORD GOLD 
ISSUE 
ISSUE 


UNDER 





This printer spacing chart shows the format of the report: 
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FIELD INDICATORS 


Field indicators, like resulting indicators, are used to test the contents of a field 
and to condition operations based on the results of the test. 


Program Cycle Operations 


Figure 20 shows the operations in the program cycle associated with field 
indicators. Note that input fields are tested and field indicators are set to 
reflect the result of the test at the time datais moved into the processing area. 
Field indicators are not set off at the end of the program cycle. If a field 
indicator is set on when data is moved into the processing area in the first 
cycle, it is not reset until the appropriate field is moved into the processing 
area in a subsequent cycle. 


START 


Perform heading 
operations. 


Perform detail Perform detait 






calculations. output operations. -* 
Set resulting If overflow line 
indicators. 





has been reached, 
J set on overflow 
Move data from record selected at indicator. 
beginning of cycle into Processing area. 

Set field indicators. 





Set off control 

level indicators. 

Set off record 
identifying indicators. 


Overflow indicator on? Yes, do i r 
overflow operations and set ae fe 
vpclian iigicsioe st eee 








Program Read a record. 


Cycle 
Pd 


Last record? Yes, set on 
control level and LR 
indicators and perform 
total calculations. 


Perform total output operations. eS ee 
If overflow line has been reached, So E A ne 


set on overflow indicator. 





LR indicator on? Yes, end of 
job has been reached. 







Set on record identifying 
indicator. 










Perform total 
calculations, 
Set resulting 
indicators. 


Change in control 
field? Yes, set 
on control Jevel 
indicators. 








Figure 20. Program Cycle Operations for Field Indicators 
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RPG il Specifications 


Make these RPG II specifications when you use field indicators: 


How Boy tae Man oe he nonat on 





ie 
: 


RPG INPUT SPECIFICATIONS 








ena [ees ss hy ae ie ae Card Eivetra 
; Ss I Sepia meet 

lastructions Key Po 7 | 

hoe : te Ay reall iss JE iI gil Se co ane 














Gx21.9094 UM-050* 
Punted in USA 


Progam 





htentfeation | 





Record {dentification Codes 









Fietdl Location 









Field 
indicators 


Felt Record Relation 



































1 2 
roLT | 


GX21 9093 UM,050° 
Printed in USA 


79 76 77 78 79 80 
Program Cy 
identification | || ! 


1 2 < 
« 
Fal 2 & 
ibename g “ield Name 
orl A. i i 
sition | [5 of oA - 
Z tals ais 4 i E 
aS nis = 
FHS olélale & 
ie 20 fan 22 23°28] 26 feed > ’ wfap]ar beatae fa 66 56 7 Sef bS GOfEr 1: 
ereeteh 
ae | 
n bee 
: : 
+H EHH | 
fa | 
RPG CALCULATION SPECIFICATIONS 
trengtrsnd Bu aess Much nes Corpuraton 
oe oy teh oe tenn Graphie Ee ] |_| Gare Electro Numer | 
ia eg boo | _ 
a = Ne = aSesicene Ted he Mos le eae se etd Ee ig ae Se 














Indicators 


Ana Factor 1 


Form Tym 
© LR. SR ANORE 


> Controt Lever (10-19. 


TBM. ieccrstona eusiress Mocrines corporstion 
: a 


| Program 
| Date 


T programmer 
i 


cr 


Se 


| Instruction 


Operation Factor 2 


Name 


26 


RPG 


OUTPUT 


SPECIFICATIONS 








3 Decimal Positions 


Card Electro Number 


Resulting 
Indicators 


[Ancien] 
[Pos [iting] Zero 





ee 
veLL 


Comments 


GX21-9090 UM/050* 
Printed in U.S.A. 


75 76 77 78 79 80 


Program 
Identification 




















‘ Fite Type 7 Mode of Processing | File Addition/Unordered 
F Fite Designation Length of Key Field ot = Extent Exit Number of Tracks 
of Record Address Field oa for DAM tor Cylinder Overflow 
| 5 Record Aduress Type Symbolic 5 Name of Number of Extents 
Filename Cee Type of File Device Device sz} Label Exit Tape 
Fite Format Organization s § Rewind 


PSCRT-DF 


toi 12 1s 44 


a 


i 
i 
Cae 


i 





EE oe vee 






Record 










Ot Additional Area 






21 Overflow indicator 


Key Field 





Starung 


Extension Code E/L 





Location 








operations at (2) and output operations at ® . 
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vation Lines 


Optio 
5@_99 [80 61 6? 64 ia 68 























torage Index 


$d 















Entry 














You can enter any one of the indicators 01-99 in positions 65-70 on the Input 
Specifications form to test an input field. You may assign indicators to test for 
three possible conditions: 


Feld @) A field indicator assigned in positions 65-66 


Indicators 


tells the system to determine if a numeric 
input field is positive (plus). 


@) A field indicator assigned in positions 67-68 
tells the system to determine if a numeric 
input field is negative (minus). 


(3) A field indicator assigned in positions 69-70 
tells the system to determine if an alpha- 
meric input field is blank or a numeric field 
is Zero. 
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JOB 7 (AGETB): USING FIELD INDICATORS TO TEST CONTENTS OF INPUT 
FIELDS 


Job Definition 
Create an aged-trial balance report that lists: 


+ Name and customer number of all charge customers who have payments 
due. 


« Amount due. 

* Overdue balances. 

The customer master file, which contains records for all customers regardless 
of their balance, is used as the input file. The report is to show only those 


customers with payments due. Thus, information from customer records that 
contain a zero or credit balance should not be printed. 


Job Requirements 


Input: A customer master file consisting of one record type: 













90 


Customer Customer Last Credit Current | 30 60 
Number Name Payment | Limit Charges Days Days Days 
Date | | Overdue | Overdue | Overdye 
' \ I ' { 
2]3[sfs]elr [ays [iol fie} afia [is fie] fie lig 31 [32 [33 [34] 35]36 ESCA: [efi faa a 50 ssi ]sa [bel sstie57 58 ]59]60 [61 ]62 63 ]64}65]66]67]68] 691 70] 7117 


Processing: Check input balance due field for zero or credit balance 
(use field indicators). 












Output: A printed aged-trial balance report: 


AGEU TRIAL 









CUSTOMER CUSTUMER LAST PAY 
NUMBER NAME 
LOB67 ALLEN & CO. 2/7 16/ 
16535 ANDERSON AUTO SUPPLY L/28/ 
17849 ANDREWS AND SUNS INC 2sus/ 
18978 AKGONAUT ENGINFER ING 12/7277 
24743 BERKLEY PAPER Cu “72s 
25271 BEST DISTRIBUTIUN CU lGs06/ 





PepPeLie a dae ces tht tee mee ee be ee ee 
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é Ea ahs ROE 
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The el 
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Job Specifications 


RPG CONTROL AND FILE DESCRIPTION SPECIFICATIONS 


em 


IBM Internatronal Business Machines Corporation 


[ Progam A) d Tri 7 Bale 
(ged [ria pace 


Programmer Jonn Doe Dae ///O/-— 
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File Description Specifications 
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Line Filename 





Skip 
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a Te ‘ / 
: : a | Constant or Edit Word 


ype 
Cee fafsu 
[Ss felm [Before] 
[el] 


PABA 


















> 
§ [fA] j *AUTO Record 
alee Se sb 4 bo & 7 BG 10-11: 12:13:14 15 16 17 18:19 20 91 ep 24 
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bef tet fd fd SY } La Field indicators 96-99, used to test the CHARGE 
12 ppEto -| and overdue fields for a plus condition, are used 
AME 






i 


to condition detail records. The record is to be 
‘| printed when one of the fields is plus; that is, 
when indicator 99; 98, 97, or 96 is on. Note 

| that record identifying indicator 01 is also used 
to condition the detail record. This is done to 
prevent printing information from a record 
type other than 01 (one that may have acci- 
dentally gotten into the file). 
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Conditioning Operations by More Than One Indicator 


In this chapter, you have learned about many different kinds of conditioning 
indicators: control level, first page, overflow, last record, record identifying, 
resulting, and field indicators. In many jobs you will use two or more 
conditioning indicators. Indicators used together can be in either an OR or 
AND relationship. 


You have already read about indicators in an OR relationship. You learned that 
if an operation can be done when either one of two conditions or both 
conditions exist, you can specify the conditioning indicators like this: 


RPG OUTPUT _— SPECIFICATIONS 


Program Keying Graphic Card Electro Numb 
Programmer | Date InStruction kay 








Filename 


This line is written when either 
indicator 1P or OV is on. 


This line is written when either 
indicator 10 or 20 is on, or when 
both are on. 





Spree 





"O00 © 01010 |e FomtType 


RPG CALCULATION SPECIFIC/ 


ere a eaten Spa on on HEH es dee 
: fone hee ee oe Nap cee h NL ee 






















Indicators 


Factor 2 







Operation 


This calculation will be performed if 
| ‘indicators 1 and 2 are on and 3 is off, or if 
indicators 1 and 3 are on and 2 is off. 


Ls ts 


+4 


Conditioning indicators can be used in the OR relationship on both the 
Calculation Specifications form and the Output Specifications form. 


If you specify two or more conditioning indicators on one line, they are in an 
AND relationship. The AND relationship means that all conditions must be 
satisfied before the operation will be performed: 


RPG CALCULATIO! 


A 4 Teo Granite, |_| Te 


mm | tT 
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ax 
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_]~ Control Level (0-19. | 
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O 1G [& Form Type 


TT} This operation is performed 
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| mitt when 10 is on and 20 is not on. 
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al ese 
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od 
“4 NS 1 is 
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ST Pee 
~ RT 
aI 
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[re 
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a 
we) 
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TKS! 








| [ele A vi 

ola | i ! 

rier Ly Tor Piper vir Wa HA This operation is performed 

[e sl i iT RPT EL I Metin ile PEN when L1, 10, 15, and 99 are all on. 
eh deca ae 3 } i ie 5h 

ei fel PRET es H Lu 

PORE TERRE LEH] this operation is pertormed 

lees fel Ct eee Py oi 7] Pil when L1 is on and 15 is not on. 












Filename 


This detail line is written when 
15 and 10 are both on. 


This tota! line is written when 
L1, 10, and 15 are all on. 
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TBM isensison usin shins Corpoicion 


Program 
Programmer 


Filename 








If your calculation or output operation must be conditioned by more than three 
indicators, additional indicators can be specified on the next line if AND is 
entered in positions 14, 15, and 16 of the Output Specifications form or AN is 
entered in positions 7-8 of the Calculation Specifications form: 


RPG OUTPUT SPECIFI 


Keying Graphic 
Date Instruction Key I 


Five indicators used in an AND relationship 
condition this detail record. Three indicators 
are specified on one line; the remaining are 
specified on the following line with the word 
AND in positions 14-16. Indicators 10, 11, 12 


Output 
Record 


’ 


RPG CALCULATIC 











Program 
Programmer 





& 
5 
2 
E 
& 
6 
Cc 
c J 
c 
Cc 








very me TTT 


STL Ti iTiy! This calculation operation is done only if 
| COs, | HH | j 4 indicators 25, 30, 31, and 90 are on and 
A a UY : ' 91 is not on. Note that the operation is 


specified on the AN line. 


Chapter 3. The Programmer’s Job 


Your responsibilities as a programmer include: 
+ Determining the job requirements 


+ Determining what RPG II specifications and program cycle operations are 
needed for the job 


+ Writing the specifications 

- Documenting the program 

« Preparing your source program for compilation 
+ Compiling the source program 


¢ Testing the program 
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DETERMINING THE JOB REQUIREMENTS 


The requirements for a job are generally described in terms of the input 
provided and the output required. The following paragraphs and illustrations 
describe the job requirements. 


An invoice is to be prepared like that shown below: 


INVOICE 


ACCOUNT NUMBER 09621 


NAME SMITH MANUFACTURING 
ADDRESS 13620 9TH ST NE 


BERNALILLO 
NEW MEXICO 56120 


SHIPPING INSTRUCTIONS BY AIR 


ITEM NUMBER DESCRIPTION QUANTITY UNIT PRICE AMOUNT 


439167 SHEARS 100 27256 249756200 
629408 GASKET CORK 3000 39450200 


102139 SPRIOGET WHITE 50 379500200 





INVOTCE TOTAL 2129157292 
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The input file contains two types of records: name/address records for all 
customers who made purchases on credit during the month and transaction 
records for each item purchased by the customers during the month. The 
name/address and transaction records look like this: 


Name NAME/ADDRESs RECORD 





= A 
CCOUNT N AME 


a 1 
ud NUMBER ADD&ESS LINE 

Q 

Q 

















93] 94[95] 96] 


Shipping code (either 1, 2, or 3) 


name? RANSACTION RECORD 
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{TEM z= UNIT 
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8 WUMBER Num BER 


I 
u 


af | / sda) ) aan sie A! 
LitetsTaTstel7 te fs [iol [ie fistia his 16] 17] fig T2o]2i[22]23] 24] 25]26] 27] 28[20| 301 3 ] 32] 33 [341 39] 36 37 [38] 39 40/41 [42[43 [44]4s [ae [47 {48 [49 [50 [51 [5253 [54155 [56 [57159 [55]6 
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The input file is organized so that all transaction records for a customer follow 
the customer's name/address record. Each customer has one name/address 
record, but might have one or more transaction records. 






~“— Transaction Records 
~<—— Name/Address Record 























Standard computer paper is to be used for printing the invoices. Each invoice 
should be formatted like this: 
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Your first step is to analyze the problem and decide what processing must be 
done to get the desired results. Always keep in mind how things are done 
using RPG II. In your analysis of the job, you would probably think of these 
points: 


Information for the first part of the invoice is taken from the name/address 
record. Information for the second part (list of transactions) is taken from 
transaction records. 


In order to print shipping instructions, the shipping code recorded in the 
record must be determined: 


1 = By truck 
2 = By rail 
3 = By air 


AMOUNT and INVTOT (invoice total) must be calculated because this 
information is not in the input records. These calculations must be done for 
all transaction records: 


QTY x PRICE = AMOUNT 


AMOUNT + INVTOT = INVTOT 


INVTOT should be printed only after all transaction records 
for one account have been processed. 


The invoice for each customer must be on a separate page. This means that 
forms must advance each time a new customer name/address record is 
found. It is possible that one customer has purchased so many items that 
they cannot be listed on one page. In this case, forms should advance 
when the end of a page is reached. When an invoice includes more than 
one page, headings should be printed on all pages. 


DETERMINE RPG I! SPECIFICATIONS NEEDED FOR THE JOB 


After you have carefully analyzed the job, determine what RPG II specifications 
and program cycle operations you need. For example, consider the following: 


¢ Different record types are used. This means that record identifying 
indicators must be specified to tell what to do for each record. 


* The shipping code must be determined. One way to do this is to compare 
the shipping code to 2. Through the use of resulting indicators, you can 
determine if the code is less than 2 (1), greater than 2 (3), or equal to 2. 


* INVAMT is printed only after all transaction records for one account have 
been processed. This is a total operation, done only after a group of 
records has been processed. Therefore, contro! fields and control level 
indicators must be used to do a total operation. The account number field 
can be used as the control field. 


¢ Forms should advance each time a different name/address record is 
encountered or whenever overflow occurs. Thus heading lines must be 


conditioned by a record identifying indicator and the OV indicator. 


If the indicators and steps just listed are used, the RPG | program cycle would 
include the steps shown in Figure 21. 
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START 


oY 


Vo 


Perform detail 
calculations. 
Set resulting 
indicators. 





Move data from record selected at 
beginning of cycle into processing area. 
Set field indicators. 


Overflow indicator on? Yes, do 


overflow operations and set 
overflow indicator off. 





LR indicator on? Yes, end of 
job has been reached. 


Perform total output operations. 
If overflow tine has been reached, 
set on overflow indicator. 


Program 
Cycle 





Perform heading 
operations. 

Perform detail 

output operations. 

If overflow line 

has been reached, 

set on overflow 
indicator. 4 


Set off control 

level indicators. 

Set off record 
identifying indicators. 


Oo 


Read a record. 


Last record? Yes, set on 
control jevel and LR 
indicators and perform 
total calculations. 


e 


Set on record identifying 


indicator. 
Perform total Change in control 
calculations. field? Yes, set » 
Set resulting on control level . 
indicators. indicators. 


@ Did Account Number change? 


Q) Print total only after all transaction records for one customer 


have been processed. 


(3) Print all heading lines if overflow occurs. 
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@ The operation to find shipping instructions can be done only 
for name/address record. The operations to find AMOUNT and 
INVTOT can be done only for transaction records. 


@ Headings for the invoice can be printed only when name/address 
record is read and detail lines only when transaction records are 
read. 


Figure 21. Program Cycle Operations for Sample Job 


WRITE THE SPECIFICATIONS 


After you have analyzed the problem and determined how to solve it using 
RPG II, you can write the specifications. Figure 22 shows the specifications for 
the job. 


RPG CONTROL AND FILE DESCRIPTION SPECIFICATIONS GX21:0082" UM/080: 


IB Printed in USA 
M International Business Machines Corporation 


ies - oe 5 79 80 
Powam INVOICe, Preperation | evi Graphic Card Etectro Number 2 poate 75 76 1) 18 78 
nae Jann Dee: (a ee ee ae melditly "2. IMVOCE] 
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DOCUMENT THE PROGRAM 


An important part of every programmer's job is to explain his program. This 
documentation provides information for people who will run the program and 
for programmers who may later need to alter or update it. Documentation is 
also useful to you. It is not always easy to remember what every program you 
wrote does. Reading documentation is a much easier way to recall the 
program than figuring out each instruction. 


Documentation consists of: 
1. Telling generally what the program does. 


2. Describing input and output. (Record layout forms and printer spacing 
charts are an excellent means of describing input and output.) File names 
and field names should be meaningful. 


3. Explaining the coding. 


4. Telling the operator how to run the program, what to do if the system 
stops because of an error, and what to do when the job is completed. 


All documentation cannot be done at the time you write specifications. 
However, when writing your specifications, you can also write an explanation 
for a line or lines of coding on the specifications forms. You have probably 
noticed positions labeled Comments on the specifications sheets. Here is 
where you write an explanation for your coding. 


In addition to using the comment positions on the coding forms, you can use 
comment lines. A comment line is indicated by an * (asterisk) in position 7 of 
the coding form: 
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Comment lines can be used anywhere on any specifications form. There is no 
limit to the number you can use. The RPG Ii compiler does not regard 
comments and comment lines as part of the program. Therefore, the compiler 
does not translate the comments into instructions; however, the lines are 
printed as part of the source program listing. 


PREPARE FOR COMPILATION 


After completing your source program, you must prepare it for compilation. 


Specifications Form Order 


Your specifications forms must be in this order: 

1. Control and File Description Specifications form 
2. Input Specifications form 

3. Calculation Specifications form 

4. Output Specifications form 


Number the forms in positions 1 and 2. At this time, you might also check to 
see that the top part of each form is completely filled in. 


if you are planning to give these specifications to someone to key, it is a good 
idea to fill in the box labeled Keying Instructions: 






Program Rohe Geagnie ; ~ ~ | Card Electro Number 
~ eat ienk Seo ss es AS Ya -—- —-.-- | ere Scie aoe ——-4-- =. f—— fd. 





You indicate in this box the graphic symbols you are using and their meaning. 
Some printed letters and numbers are easily confused. For example, it is 
sometimes difficult to differentiate between the number O and the letter O and 
the number 2 and the letter Z. You may, therefore, devise a graphic symbol 
that you use for certain letters. Some people use @ for zero, Z for the letter Z. 
Explain your symbols so that the operator will know what to key when the 
symbol appears on the coding forms. 


RPG CONTROL AND FILE DESCRIPTION SPECIFICATIONS 


Control Specifications Preparation 


Some systems require control specifications. If yours does, you will have to fill 
out the control specifications at the top of the Control and File Description 
Specifications form. 


Control specifications give the compiler information about the system and tell 
whether any special RPG II functions are used in the program. The entries are 
such things as: 


1P forms control allows operator 
positioning of forms at the begin- 
ning of program execution 
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Of Print Bg 
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Reter to the specific System Reference 
Library manual for actual entries 





Reserved 








Alternate decimal notation, = 
Format of date decimal periods, or decimal In some systems, the name in 75-80 
month/day/year commas of the Control and File Description 
year/month/day Specifications form is used to name 
day/month/year the object program 


Checking the Specifications 
Desk checking is a good way to reduce the number of potential program 
errors. Desk checking means carefully checking through your specifications to 
see whether you have: 


¢ Placed entries in appropriate positions 


¢ Used correct entries in positions 


Spelled the same field and file names identically throughout your program 

¢ Used your indicators correctly 

If you should find that you have omitted a specification (did not name an input 
field or an output field or did not enter a calculation), you can enter it on a line 


following line 20 (line 10 on the Control and File Description Specifications 
form under File Description). 
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Notice that no line numbers have been entered in positions 3-5 of the 
specification lines located below line 20. You can place numbers in these 
positions to tell where the missing specification belongs: 
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} In this example, the programmer did not specify information to be included 

| on the second heading line. On the lines following line 20, he entered the 
missing specifications. Notice that positions 3-5 tell where the specifications 
belong. The line numbers 051 and 052 indicate that the specifications belong 











inserted in the appropriate place. If the source program is being entered 
directly into the system through a keyboard, the missing specifications will 
have to be inserted in the appropriate place when the specifications are keyed. 
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0001 
RG 025 
Q002 


0003 
0004 
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0006 
OOO7 
0008 
0009 
ooLo 
oolt 
o0le 
0013 
0014 
001s 


0016 
0017 
0018 


0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 


0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 


COMPILE THE SOURCE PROGRAM 


When you think your source program is free of errors, it can be keyed 
according to the source entry method for your system. You can then compile 
your source program. The important part of compilation is, of course, 
translating the source program into machine language. But in addition to this, 
the compiler also produces the following program listing: 





ooo! H O14 INVOCE 


Q002 FNAMADD I[P 128 128 DSIK INVOCE 
0003 FINVOICE OQ 120 120 Ov PRINTER INVOCE 
0004 INAMADD O11 10 L CN INVOCE 
0005s I 2 60ACCNO L1 INVOCE 
0006 I 7 26 NAME INVOCE 
ooo7 I 27 4&9 ADDR INVOCE 
oo0os8 I 50 72 ADDR2 INVOCE 
o0o9 I 73 95 ADIR3Z INVOCE 
0010 I 96 F9b60SHPCO INVOCE 
ooll I O2N 20 1 cT INVOCE 
0012 I 2 6OACCNO L1 INVOCE 
0013 { 9 1401 TEMNO INVOCE 
0014 If 15) 29 DESCRP INVOCE 
0015 I 30 «340uTY INVOCE 
OOl6 ff 35° 392UPRICE INVOCE 
OOol7 Cc 10 SHPCD COMP 2 979B99TS CODE Le2e3s?INVOCE 
0018 C 20 QTY MULT UPRICE AMOUNT 52 FIND ITEM TOTALINVOCE 
0019 C€ 20 AMOUNT ADD INVTOT INVTOT 102 FIND INV TOTAL INVOCE 
0020 OINVOICE H 304 10 INVOCE 
0021 0 OR OvVNLO INVOCE 
0022 0 45 "INVOTCE® INVOCE 
0023 0 H 3 10 INVOCE 
0024 0 OR OVNLO INVOCE 
0025 0 LT "ACCOUNT NUMBERS INVOCE 
0026 0 ACCNO 23 INVOCE 
0027 O H 2 10 INVOCE 
0028 0 OR OVN1O INVOCE 
0029 0 T *NAME® INVOCE 
0030 0 NAME 39 INVOCE 
0031 9 HI 10 INVOCE 
0032 0 OR OVN1O INVOCE 
0033 0 10 *ADDRESS®* INVOCE 
0034 0 ADDR1 42 INVOCE 
0035 0 Hol 10 INVOCE 
0036 0 OR OVNLO INVOCE 
0037 0 ADDR2 42 INVOCE 
0038 0 H 2 10 INVOCE 
0039 0 OR OVNLO INVOCE 
0040 0 ADOR3 42 INVOCE 
0041 O H 32 10 INVOCE 
0042 0 OR OWN1LO INVOCE 
0043 0 24 "SHIPPING INSTRUCTIONS! INVOCE 
0044 0 97 33 "BY AIR®* INVOCE 
0045 0 98 33 *BYy TRUCK? INVOCE 
0046 0 99 33 *By RAIL® INVOCE 
0047 0 H 2 10 INVOCE 
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0047 
0048 
0049 
0050 
oo51 
0052 
0053 
005% 
0055 
0056 
0057 
0058 
0059 
0060 
0061 


0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 


ov0a0oceoaqa0cC000000 


INDICATORS USED 


Ll Ov 


FIELO NAMES USED 


STMT# NAME DEC LNG borse 
0004 ACCNO 0 0005 O16C 
0005 NAME 0020 9113 
0006 ADDR1L 0023 OL2A 
0007 ADDR2 0023 0141 
0008 ADDR3 0023 0158 
0009 SHPCD 0 oootk 0160 
0012 ITEMNO O 0006 0173 
0013 DESCRP 0015 D167 
0014 QTY 0 0005 0178 
OO15 UPRICE 2 0005 0170 
OO17 AMOUNT 2 0005 0182 
0018 INVTOT 2 0010 018C 
ERROR NUMBER STATEMENT NUMBER 
RPG-0221 OOL7 
ERROR SEVERITY TEXT 


RPG-0025 T 
RPG~-O0221 W 





OR OVNLO 
14 ‘ITEM NUMBER* 
34 *DESCRIPTION® 
50 *QUANTITY® 
65 "UNIT PRICE® 
81 *AMOUNT® 
D 2 20 
ITEMNOZ ll 
DESCRP 36 
QTY Z 49 
UPRICEL 63 
AMOUNT IL B82 
T 32 Ll 


65 “INVOICE TOTAL® 
INVTOTiB B82 


10 20 97 98 99 


INVALIO DEVICE NAME IN COLUMNS 40-469 ASSUME DISK. 
RESULT FIELD LENGTH MAY NOT BE LARGE ENOUGH. 


The most important parts of the program listing! are: 


A printout of source specifications including comment lines. Notice 
the number at the left of each line. This is the sequence number the 
compiler assigns to the specification. 


A list of all indicators used in the program. 


A list of all fields used in the program. Included in the list is the 
storage location assigned to each field and a description of each 
field as indicated in your specifications. Some compilers also 
provide this information for constants used in the program. 


Diagnostic messages indicating the types of errors made and the 
statement in which they occur. 





Note that the sample listing shown is the program listing for the 
invoice job (INVOCE). 


INVOCE 
TNVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 





If the compiler finds any errors in your source specifications, it will print 
diagnostic messages telling you what errors were made. You will find that 
different types of messages are printed: warning, terminal, or informative. A 
warning message is an indication that something may be wrong. If you check 
the questioned specification and find that it is all right for your program, you 
need not make changes. If you get a terminal message, however, something is 
wrong with your coding. You must fix the specification and recompile the 
program before the compiler will actually translate your specifications. 


The diagnostic message section of the program listing contains two basic 
parts: a list of messages o and an explanation of each message Q. 


Q ERROR NUMBE“STATEMENT NUMBER 
RPG-0221 0017 


ERROR SEVERITY Oo 8 TEXT 
o{ RPG-0025 T INVALID DEVICE NAME IN COLUMNS 40-465 ASSUME DISK. 
RPG-0221 W RESULT FIELD LENGTH MAY NOT BE LARGE ENOUGH. 


Each error message in the list is identified by a 3-digit number El. Next to the 
message number is either a statement number identifying the specification in 
which the error appears or a field name or constant associated with the error 
Ef. Following the list of messages is an explanation of each error [EJ and an 
indication of the severity of each error (W = warning; T = terminal) {f¥. 


The sample shown above shows diagnostic messages printed for the invoice 
job. Note that message 221 is a warning. A warning is an indication that 
something may be wrong. If you check the specification noted and find that it 
will work for the job, you need not change it. 


Checking the message in the listing, you would find that the warning points to 
the AMOUNT field in statement 0017: 


0018 C 20 QTY MULT UPRICE AMOUNT 52 FIND ITEM TOTALINVOCE 


The AMOUNT field is specified as five characters with two decimal positions. 
In checking your specifications, you will find that the amount should have been 
7 digits with 2 decimals, and it was incorrectly keyed in the source data. 


Message 0025 is a terminal error. This error number appears below the 
statement at which the error occurred. Checking the listing where it appears at 
statement 1, the device entry DISK, was miskeyed as DSIK. You must correct 
this error. (Check the RPG H reference manual for your system for the correct 
entries for the Device positions.) 
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TEST THE PROGRAM 


It is good practice to test your program before using it for an actual job. To do 
this, make up test data representing all possible situations that could arise 
during an actual job. Run your program using that data to see if your program 
will really handle the situations your think it does. If you get the wrong results 
when testing, you know your program is not doing what you thought it would. 
You can usually find your errors by using actual input data and doing the 
operations specified yourself, step-by-step, in the order the system would do 
them. When doing this, you have to follow closely your specifications and the 
program cycle operations taken by your program. After you test your program 
and the results show it can handle all situations, your job is complete. 
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address: A number identifying a location in storage. 


alphabetic: in general usage, any of the letters A-Z. In 
RPG I! programming, any of the letters A-Z and special 
characters @, #, and $. 


alphameric: Any alphabetic or numeric characters. 


alphameric constants: Any of the characters in the 
data character set. 


alphameric field: A field that contains any of the 
characters in the data character set. 


AND relationship: The specifying of conditioning 
indicators such that the operation conditioned will be 
performed only when all conditions are met. 


arithmetic/logic unit: An area inside the processing 
unit where calculations are performed. 


arithmetic operation: An operation such as addition, 
subtraction, multiplication, and division performed in the 
processing unit. 


ascending order: The arrangement of records in a file 
from low to high, based on the contents of a specified 
field in each record. 


blank after: Changing the contents of a field so that it 
contains only zeros or blanks after that field has been 
written to the output record. 


Calculation Specifications form: An RPG II coding 
form which specifies the type and order of calculations 
to be performed on the input data. 


card: In data processing, a card containing 
combinations of holes representing data to a system. 


card file: A group of related punched-card records. 


card layout form: A chart for planning the design and 
format of cards. 


card punch: A device that records information on a 
card in the form of combinations of holes representing 
characters. 


Glossary 


card reader: A device that electronically senses 
information on punched cards and transfers that 
information to the processing unit. 


character: Any individual! data item that can be 
represented in printed form; that is, a letter, a digit, or a 
special character. 


coding: Making entries on RPG I! specification forms. 


comments: Words or statements in a program that 
serve as documentation rather than as instructions to 
the compiler. 


compile: Translate a source program (such as RPG |! 
specifications) into an object program (machine language 
program) using the compiler. 


compiler: A program that translates a source program 
into a machine language program. 


conditioning: Using indicators to control when 
calculations or output operations are done. 


constant: A data item that does not change during 
execution of a program. This item represents itself and 
is actually used in processing rather than being a field 
name representing the data. For example, COST is a 
name representing a field containing data that changes, 
whereas the constant 100 is actual data used that does 
not change. 


control break: A change in the contents of a control 
field. 


Control and File Description Specifications form: An 
RPG I! coding form that gives, for a particular job, 
information needed for control of the system and a 
description of the files used. 


control field: One or more fields that are compared 
from record to record to determine when certain 


operations should be performed. 


control group: A set of records all having the same 
control field information. 
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control level indicator: An indicator used to specify 
certain fields as control fields and to indicate which 
operations to perform at total time. 


control unit: An area inside the processing unit that 
determines from instructions what has to be done. It 
directs other units or devices to perform the required 
functions. 


data: A collection of facts, numbers, letters, and 
symbols that can be processed or produced by a 
system. 


data character set: All of the 256 EBCDIC characters. 


descending order: The arrangement of records in a file 
from high to low, based on the contents of a specific 
field in each record. 


detail record: An output record produced during the 
detail output operation of the RPG II program cycle. 


detail time: An operation in the RPG II program cycle 
in which calculation and output operations are 
performed for each tecord read. 


diagnostic message: An output message that identifies 
RPG ll specification errors and their severity. 


digit: One of the characters 0-9. 


disk: A flat, circular plate with a magnetic surface on 
which data can be stored. 


disk drive: A device that reads data from or writes data 
on a disk. 


Disk file: A group of related records stored on disk. 


diskette: A thin, flexible magnetic disk permanently 
enclosed in a semirigid protective jacket. 


documentation: A written explanation of a program, its 
use, function, and operations. 


edit: To punctuate a numeric field by suppressing zeros 
and inserting commas, decimal points, dollar signs, or 
other constant information. 


edit code: A number or letter indicating that editing of 
a numeric field should be done according to a 
predefined pattern. This includes zero suppression and 
punctuation. 
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eighty-column card: A punch card with 80 vertical 
columns representing 80 characters. 


end of file: The end of records in a file. 
error message: See diagnostic message. 


execute: To process input data files according to 
machine language instructions to produce the desired 
output. 


factor: In RPG I! programming, a field name or 
constant used in a calculation operation. 


field: One or more adjacent record positions which 
contain related information. 


field indicator: An indicator used to show whether a 
given field in an input record is plus, minus, zero, or 
blank. 


field length: The number of positions allowed for a 
given field, determined by the maximum length of 
information that will be entered in the field. 


field name: In RPG II programming, a combination of 
no more than six alphabetic or numeric characters (the 
first of which must be alphabetic) that identifies a field. 


file: An organized collection of related records. 


file name: In RPG II programming, a combination of no 
more than eight alphabetic or numeric characters (the 
first of which must be alphabetic) that identifies a file. 


first page indicator: An indicator used to specify which 
lines (such as headings) should be printed on the first 
page only. 


half adjust: A method of rounding off a number by 
adjusting the last digit to be kept. When the number to 
the right of the last digit to be retained is 5 or greater, 1 
is added to the last retained digit. For example, 2.475 
half adjusted to two decimal places becomes 2.48, but 
2.474 becomes 2.47. 


heading: A constant, usually printed at the top of a 
page, identifying the information or report on that page. 


indicator: (1) A 2-digit or 2-character entry on the 
RPG Il specification forms used to tell when certain 
calculation or output operations are to be performed. (2) 
An internal switch used by the object program to 
remember when a certain event occurs. 


input: Data that is to be operated on (processed) by the 
system. 


input file: A set of records a program uses as a source 
of data. 


input specifications form: A coding form used to 
identify the different types of records in each input file 
and to describe the fields in each record. 


instruction: A statement that specifies an operation to 


be performed by the system and the locations in storage 
of all data involved in that operation. 


Keyboard: A device used to enter data into a system. 


Keypunch: A device, similar to a typewriter, used for 
punching information into cards. 


last record indicator: An indicator that signifies when 
the last data record has been processed. 


machine language: A language that can be interpreted 
and used by a system. 


ninety-six column card: A punch card with 96 vertical 
columns representing 96 characters. The columns are 
divided horizontally into thirds, such that the columns in 
the upper third are numbered 1-32, in the middle third, 
33-64, and in the lower third, 65-96. 


numeric: Any combination of the digits 0-9. 


numeric constant: A constant used to represent a 
number than can consist of a decimal point, a sign, and 
the digits 0-9. 


object program: A set of instructions in machine 
language. The object program is produced by the 
compiler from the source program. 


operation: A defined action performed on one or more 
data items, such as adding, multiplying or comparing. 


Operation code: A word or abbreviation specified on 
the Calculation Specifications form to identify an 
Operation such as, SUB for subtract or ADD for 
addition. 


OR relationship: Specifying conditioning indicators so 
that the operation conditioned is performed when either 
one or both of the conditions are met. 


output: Data transferred from storage to an external 
medium such as printed form, punched cards, or disk. 


output file: A set of records that is written, punched, 
or printed by the system to an external medium. 


Output Specifications form: An RPG II coding form 
used to specify the records to be written in each output 
file and the format of the records. 


overflow: The condition that occurs when the last line 
to be printed on the page has been passed. 


overflow indicator: An indicator that signifies when the 
last line on a page has been printed or passed. It can 
be used to specify which lines are to be printed on the 
next page. 


overflow line: The line specified as the last line printed 
on a page. 


overflow page: The new page after an overflow has 
occured. 


primary file: The main file from which a program first 
reads records. 


printer: An output device that records information on 
paper in the form of printed characters. 


printer spacing chart: A form used to plan the location 
of data in the printer output file. 


Processing: To perform operations on data from an 
input record. 


processing unit: The part of a system that controls the 
system and its attached devices, provides storage area 
for the programs and data, and performs the operations 
specified in the program. 


Program: A set of instructions that (when stored) tells 
the system which operations are to be done and how to 
do them. 


program cycle: A series of operations performed by 
the system for each record read. 


program listing: A printout which gives information 
about the source program, such as source statements, 
diagnostic messages, indicators used, storage addresses 


of fields, and constants used. 


punched card: See card. 
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record: A group of related fields or data items treated 
as a unit. 


record identification code: A code placed in a record 
when it is created to identify that record type. 


record identifying indicator: An indicator that 
identifies the type of record being processed during the 
current program cycle. 


record length: The total number of positions in a 
record. 


record types: The classification of records in a file. 

Records are classified according to a specific field or 
fields within each record. Records of the same type 

have the same fields in the same order and identical 
record identification codes. 


result field: The name of a field where the outcome of 
arithmetic calculations is kept. 


resulting indicators: An indicator that can signify (1) 
whether the result of a calculation is plus, minus, zero, 
or blank, or (2) whether a field is greater than, less than, 
or equal to another field. 


secondary file: Any file other than the primary file used 
in multifile processing. 


Source program: A set of instructions representing a 
particular job as defined by the programmer. These 
instructions are written in a programming language, such 
as RPG ll. 


Special character: A character other than a digit, letter, 
or @, #, and $. For example, *, +, and % are special 
characters. 


Specification forms: Forms on which an RPG I! 
program is coded and described. The four specification 
forms described in this manual are the Control and File 
Description Specifications form, the Input Specifications 
form, the Calculation Specifications form, and the 
Output Specifications form. 


Storage unit: An area inside the processing unit where 
instructions and data are stored. 


Total operations: Operations performed only after a 
group of records has been processed. 
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Total time: That part of the RPG II progam cycle in 
which calculation and output operations specified for a 
group of records are done. 


Zero suppression: The elimination of leading zeros in a 
number. For example, 00057, when zero suppressed, 
becomes 55557 (6 represents one blank space). 
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